A120459 Row sums of A120458.

1, 3, 14, 161, 3124, 181259, 6732438, 493478345, 24995572328, 2255433009731, 470444892889498, 38714638073629151, 7749166585021832892, 1203906832960860262109, 121893712541593098356318, 17161342484454585041813495, 4656941131185104848296141136, 1513056629126772227843475996471

Offset: 0

Author

Roger L. Bagula, Jun 24 2006

Keywords

• nonn

Crossrefs

Cf. A120458, A291140.

Programs

Mathematica

a[n_] := 1 + Sum[Prime[k]^n, {k, 1, n}]; Array[a, 18, 0] (* Amiram Eldar, Jun 08 2025 *)

PARI

a(n) = 1 + sum(k = 1, n, prime(k)^n); \\ Amiram Eldar, Jun 08 2025

Formula

From Amiram Eldar, Jun 08 2025: (Start)

a(n) = 1 + Sum_{k=1..n} prime(k)^n.

a(n) = A291140(n) + 1 for n >= 1. (End)

Extensions

More terms from Amiram Eldar, Jun 08 2025