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,2

Links

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

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 *)

Prog

(PARI) for(i=1, 999, isprime(12*i^2+1) & isprime(12*i^2-1) & print1(i", "))
(Magma) [m:m in [1..740]| IsPrime(12*m^2-1) and IsPrime(12*m^2+1)]; // Marius A. Burtea, Jan 23 2020

Crossrefs

Cf. A037073, A154671.

Sequence in context: A115018 A057030 A230430 * A001130 A348529 A069825

Adjacent sequences: A154328 A154329 A154330 * A154332 A154333 A154334

Keyword

nonn

Author

M. F. Hasler, Jan 15 2009

Status

approved