|
|
A098137
|
|
a(n) = n^n + n^prime(n).
|
|
0
|
|
|
2, 12, 270, 16640, 48831250, 13060740672, 232630514810750, 144115188092633088, 8862938119652888516418, 100000000000000000010000000000, 191943424957750480504432152962422, 8505622499821102144576131693030930382848, 4695452425098908797088971409337724910182721066
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
Table of n, a(n) for n=1..13.
|
|
FORMULA
|
a(n) = A000312(n) + A062481(n). - Michel Marcus, Aug 27 2015
|
|
EXAMPLE
|
a(1) = 1^1 + 1^2 = 2.
a(2) = 2^2 + 2^3 = 12.
a(3) = 3^3 + 3^5 = 270.
|
|
MATHEMATICA
|
Table[n^Prime[n] + n^n, {n, 1, 15}] (* Stefan Steinerberger, Feb 28 2006 *)
|
|
PROG
|
(PARI) first(m)=vector(m, i, i^i + i^prime(i)) \\ Anders Hellström, Aug 26 2015
(Magma) [n^n + n^(NthPrime(n)): n in [1..20]]; // Vincenzo Librandi, Aug 27 2015
|
|
CROSSREFS
|
Cf. A000312, A062481, A089622.
Sequence in context: A193204 A289314 A091504 * A214005 A014982 A012444
Adjacent sequences: A098134 A098135 A098136 * A098138 A098139 A098140
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Parthasarathy Nambi, Sep 27 2004
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger, Feb 28 2006
a(12)-a(13) from Vincenzo Librandi, Aug 27 2015
|
|
STATUS
|
approved
|
|
|
|