|
%I #4 Nov 20 2018 18:55:44
%S 1,2,6,12,13,28,33,34,57,72,76,82,89,98,99,111,121,126,131,134,166,
%T 169,202,203,208,209,211,219,224,246,252,259,301,302,317,348,383,387,
%U 394,436,439,511,512,527,572,574,642,666,667,677,726,763,769,779,792,818
%N (6*n)^2 = A154711.
%C A154711 Squares such that square-+5 are primes.
%t lst={};Do[p=n^2;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,(p^(1/2))/6]],{n,6,8!,6}];lst
%t Sqrt[#]/6&/@Select[Range[5000]^2,AllTrue[#+{5,-5},PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 20 2018 *)
%Y Cf. A144938, A154709, A154710, A154711
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Jan 14 2009
|
