A140497 a(n) = 2p - number of digits of p^p, where p = n-th prime.

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

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*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

Cf. A051674.

Sequence in context: A088070 A175071 A336822 * A260479 A285344 A342740

Adjacent sequences: A140494 A140495 A140496 * A140498 A140499 A140500

Keyword

base,sign

Author

Juri-Stepan Gerasimov, Jul 24 2008

Extensions

Corrected and extended by Emeric Deutsch, Aug 10 2008

Status

approved