A154331 Numbers m such that 12 m^2 is the average of a twin prime pair.

1, 3, 4, 6, 11, 13, 17, 20, 29, 39, 94, 108, 136, 154, 158, 172, 214, 227, 245, 256, 262, 283, 288, 290, 308, 315, 328, 357, 358, 371, 403, 413, 414, 420, 475, 491, 510, 522, 536, 543, 546, 556, 559, 561, 581, 585, 622, 630, 633, 647, 666, 669, 676, 699, 735

Offset: 1

Author

M. F. Hasler, Jan 15 2009

Keywords

• nonn

Links

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

Crossrefs

Cf. A037073, A154671.

Programs

Magma

[m:m in [1..740]| IsPrime(12*m^2-1) and IsPrime(12*m^2+1)]; // Marius A. Burtea, Jan 23 2020

Mathematica

Select[Range[800],AllTrue[12#^2+{1,-1},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 27 2014 *)

PARI

for(i=1,999, isprime(12*i^2+1) & isprime(12*i^2-1) & print1(i","))