A120492 1 + Sum[ Prime[k]^(n-1), {k,1,n}].

2, 6, 39, 504, 17765, 552552, 30870007, 1387350084, 103306557609, 16762578985600, 1290073179870299, 216632259853089564, 30312656885388018973, 2922170957243151047352, 378560698729260507690687

Offset

1,1

Comments

Prime p divides a(p). n divides a(n) for n={1,2,3,4,5,6,7,9,10,11,12,13,17,19,22,23,29,31,37,41,43,45,47,...}.

Links

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

Formula

a(n) = 1 + Sum[ Prime[k]^(n-1), {k,1,n}].

Mathematica

Table[1+Sum[Prime[k]^(n-1), {k, 1, n}], {n, 1, 20}]

Crossrefs

Sequence in context: A054970 A211348 A295912 * A028300 A132192 A340299

Adjacent sequences: A120489 A120490 A120491 * A120493 A120494 A120495

Keyword

nonn

Author

Alexander Adamchuk, Aug 04 2006

Status

approved