login
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
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
Sequence in context: A115018 A057030 A230430 * A001130 A348529 A069825
KEYWORD
nonn
AUTHOR
M. F. Hasler, Jan 15 2009
STATUS
approved