|
| |
|
|
A110014
|
|
Primes p such that 6p + 7 is a square.
|
|
4
| |
|
|
3, 7, 19, 47, 59, 103, 139, 227, 307, 367, 467, 503, 619, 839, 887, 1039, 1319, 1567, 1699, 1907, 1979, 2203, 2687, 3407, 4003, 4759, 4987, 5827, 6079, 6599, 7703, 8287, 9203, 9679, 10499, 10667, 11527, 12239, 13159, 14503, 16747, 17387, 19379, 22447
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
FORMULA
| a(n) = (A110015(n) - 7)/6.
|
|
|
MATHEMATICA
| Select[Prime[Range[3000]], IntegerQ[Sqrt[6#+7]]&]
|
|
|
CROSSREFS
| Cf. A110015, A110016.
Sequence in context: A185696 A141344 A029855 * A026581 A151535 A181360
Adjacent sequences: A110011 A110012 A110013 * A110015 A110016 A110017
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Sep 03 2005
|
|
|
EXTENSIONS
| Corrected and extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 04 2005
Mathematica program provided by Harvey P. Dale, Dec. 8, 2010
|
| |
|
|
