OFFSET
1,1
MAPLE
a:=proc(n) local np, npp: np:=ithprime(n): npp:=convert(np^np, base, 10); 2*np-nops(npp) end proc: seq(a(n), n=1..50); # Emeric Deutsch, Aug 10 2008
MATHEMATICA
2#-IntegerLength[#^#]&/@Prime[Range[50]] (* Harvey P. Dale, Nov 01 2011 *)
CROSSREFS
KEYWORD
base,sign
AUTHOR
Juri-Stepan Gerasimov, Jul 24 2008
EXTENSIONS
Corrected and extended by Emeric Deutsch, Aug 10 2008
STATUS
approved