|
%I #14 Nov 14 2019 04:44:58
%S 5,13,17,37,61,73,101,137,173,181,233,241,257,277,293,313,373,397,461,
%T 557,577,593,601,641,653,661,761,773,797,853,937,941,1013,1033,1061,
%U 1117,1193,1201,1321,1361,1381,1433,1453,1481,1553,1613,1693,1733,1777,1873,1973,1993
%N Primes p == 1 (mod 4) such that 6p+1 is prime.
%C Contains A188130 as a subsequence.
%H Amiram Eldar, <a href="/A188131/b188131.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Range[1, 2000, 4], PrimeQ[#] && PrimeQ[6# + 1] &] (* _Amiram Eldar_, Nov 13 2019 *)
%o (PARI) forprime(p=1,1e5, p%4==1 & isprime(p*6+1) & print1(p", "))
%Y Cf. A188130.
%K nonn
%O 1,1
%A _M. F. Hasler_, Mar 21 2011
|
