A064371 Zero, together with positive numbers k such that prime(k) + k is a square.

0, 5, 12, 86, 105, 176, 214, 230, 241, 412, 503, 696, 1065, 1147, 1170, 1273, 1334, 2021, 2455, 2600, 2660, 2772, 3299, 3332, 3365, 4417, 4861, 6478, 6572, 8115, 8858, 8905, 9229, 9380, 9590, 9692, 9749, 10501, 10829, 11338, 11633, 11690, 12099

Offset: 1

Author

Jason Earls, Sep 26 2001

Keywords

• nonn

Links

• Harry J. Smith, Table of n, a(n) for n = 1..300

Crossrefs

Cf. A014688.

Programs

Magma

[0] cat [n: n in [1..12500] | IsSquare(NthPrime(n)+n)]; // Bruno Berselli, May 26 2011

Mathematica

Join[{0},Transpose[Select[Table[{n,Prime[n]},{n,15000}], IntegerQ[ Sqrt[ Total[#]]]&]][[1]]] (* Harvey P. Dale, May 26 2011 *)

PARI

j=[]; for(n=0,20000, if(n==0 || issquare(prime(n)+n), j=concat(j,n))); j

PARI

{ n=0; default(primelimit, 20000000); for (m=0, 10^9, if (m==0 || issquare(prime(m) + m), write("b064371.txt", n++, " ", m); if (n==300, break)) ) } \\ Harry J. Smith, Sep 14 2009

Extensions

Edited by Harry J. Smith, Sep 14 2009