|
%I #14 Jul 16 2022 13:43:27
%S 2,3,5,7,11,13,17,19,43,61,71,73,79,101,107,109,127,131,137,139,149,
%T 151,167,191,193,239,263,269,283,311,347,373,379,389,401,433,439,443,
%U 461,479,499,541,587,641,643,659,701,719,733,773,797,821,883,887,907,919
%N Primes p such that 5*p^2 + 5*p + 1 is also prime.
%H Harvey P. Dale, <a href="/A175063/b175063.txt">Table of n, a(n) for n = 1..1000</a>
%F A090563 INTERSECT A000040. - _R. J. Mathar_, Jul 06 2010
%t Select[Prime[Range[200]],PrimeQ[5#^2+5#+1]&] (* _Harvey P. Dale_, Feb 25 2011 *)
%Y Cf. A000040, A090563.
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Dec 20 2009
%E Corrected title. - _Joerg Arndt_, Mar 11 2010
|
