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,2

Comments

A154711 Squares such that square-+5 are primes.

Links

Table of n, a(n) for n=1..56.

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 *)

Crossrefs

Cf. A144938, A154709, A154710, A154711

Sequence in context: A145892 A216429 A250178 * A079849 A260907 A333833

Adjacent sequences: A154709 A154710 A154711 * A154713 A154714 A154715

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jan 14 2009

Status

approved