A135485 a(n) = Sum_{i=1..n} prime(i)^(i-1), where prime(i) denotes i-th prime number.
1, 4, 29, 372, 15013, 386306, 24523875, 918395614, 79229380895, 14586375356764, 834214662337565, 178751836441797978, 22742242136807984059, 1741006366419098769302, 258407992554086508103671
Offset: 1
Keywords
Links
- G. C. Greubel, Table of n, a(n) for n = 1..250
Programs
-
Mathematica
f[n_] := Sum[Prime[i]^(i - 1), {i, n}]; Array[f, 16] (* Robert G. Wilson v, Feb 12 2008 *)
-
PARI
a(n) = sum(k=1, n, prime(k)^(k-1)); \\ Michel Marcus, Oct 15 2016
Extensions
Edited and extended by Robert G. Wilson v, Feb 12 2008
Comments