A110015 Squares of the form 6p + 7, where p is a prime.

25, 49, 121, 289, 361, 625, 841, 1369, 1849, 2209, 2809, 3025, 3721, 5041, 5329, 6241, 7921, 9409, 10201, 11449, 11881, 13225, 16129, 20449, 24025, 28561, 29929, 34969, 36481, 39601, 46225, 49729, 55225, 58081, 63001, 64009, 69169, 73441, 78961

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Formula

a(n) = 6*A110014(n) + 7 = A110016(n)^2.

Mathematica

Select[6#+7&/@Prime[Range[8000]], IntegerQ[Sqrt[#]]&]  (* Harvey P. Dale, Mar 11 2011 *)

Prog

(PARI) forstep(n=5, 1e3, [2, 4], if(isprime((n^2-7)/6), print1(n^2", "))) \\ Charles R Greathouse IV, Sep 20 2016

Crossrefs

Cf. A110014, A110016.

Sequence in context: A289829 A358060 A131706 * A110586 A046949 A137659

Adjacent sequences: A110012 A110013 A110014 * A110016 A110017 A110018

Keyword

nonn

Author

Giovanni Teofilatto, Sep 03 2005

Extensions

Corrected and extended by Ray Chandler, Sep 04 2005

Status

approved