login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

A140497
a(n) = 2p - number of digits of p^p, where p = n-th 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
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
Cf. A051674.
Sequence in context: A088070 A175071 A336822 * A260479 A285344 A342740
KEYWORD
base,sign
AUTHOR
EXTENSIONS
Corrected and extended by Emeric Deutsch, Aug 10 2008
STATUS
approved

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy