A125570 Numbers n such that Sum_(x=1..n) (x-1)*6^(x-1)/6 is prime.
3, 7, 8, 19, 69, 77, 104, 107, 162, 163, 399, 4787, 4818
Offset: 1
Crossrefs
Cf. A119529.
Programs
-
Mathematica
s = 0; Do[s += (x-1)*6^(x-1)/6; If[PrimeQ[s], Print[x]], {x, 10^4}]
Comments