A154712 (6*n)^2 = A154711.

1, 2, 6, 12, 13, 28, 33, 34, 57, 72, 76, 82, 89, 98, 99, 111, 121, 126, 131, 134, 166, 169, 202, 203, 208, 209, 211, 219, 224, 246, 252, 259, 301, 302, 317, 348, 383, 387, 394, 436, 439, 511, 512, 527, 572, 574, 642, 666, 667, 677, 726, 763, 769, 779, 792, 818

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Keywords

• nonn

Comments

A154711 Squares such that square-+5 are primes.

Crossrefs

Cf. A144938, A154709, A154710, A154711

Programs

Mathematica

lst={};Do[p=n^2;If[PrimeQ[p-5]&&PrimeQ[p+5],AppendTo[lst,(p^(1/2))/6]],{n,6,8!,6}];lst
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 *)