A109790 Numbers k such that A083186(k) is prime.

1, 3, 5, 7, 9, 15, 19, 33, 47, 49, 51, 55, 63, 73, 97, 105, 117, 119, 131, 165, 189, 195, 223, 229, 243, 245, 253, 257, 263, 273, 277, 291, 295, 297, 329, 331, 357, 367, 371, 389, 391, 395, 397, 399, 445, 487, 497, 551, 577, 603, 605, 637, 641, 643, 683, 685

Offset: 1

Author

N. J. A. Sloane, Jun 11 2007

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)

Crossrefs

Cf. A006450, A083186, A126144.

Programs

Mathematica

Select[Range[2000], PrimeQ[Sum[Prime[Prime[i]], {i, 1, #}]] &] (* Stefan Steinerberger, Jun 23 2007 *)
Flatten[Position[Accumulate[Prime[Prime[Range[800]]]],?PrimeQ]] (* _Harvey P. Dale, Jun 24 2012 *)

Extensions

More terms from Stefan Steinerberger, Jun 23 2007