

A154331


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


6



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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^21) & print1(i", "))
(Magma) [m:m in [1..740] IsPrime(12*m^21) 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



