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
Keywords
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