

A140497


a(n) = 2p  number of digits of p^p, where p = nth prime.


0



3, 4, 6, 8, 10, 11, 13, 13, 14, 15, 15, 15, 15, 15, 15, 14, 13, 13, 11, 10, 9, 8, 6, 4, 1, 1, 2, 4, 5, 6, 14, 16, 19, 20, 26, 28, 31, 35, 38, 42, 46, 47, 54, 56, 59, 60, 69, 78, 81, 83
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..50.


MAPLE

a:=proc(n) local np, npp: np:=ithprime(n): npp:=convert(np^np, base, 10); 2*npnops(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

Cf. A051674.
Sequence in context: A088070 A175071 A336822 * A260479 A285344 A342740
Adjacent sequences: A140494 A140495 A140496 * A140498 A140499 A140500


KEYWORD

base,sign


AUTHOR

JuriStepan Gerasimov, Jul 24 2008


EXTENSIONS

Corrected and extended by Emeric Deutsch, Aug 10 2008


STATUS

approved



