login
(6*n)^2 = A154711.
1

%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