|
|
A118591
|
|
Larger of two consecutive primes whose sum is a square.
|
|
1
|
|
|
19, 53, 73, 293, 883, 1153, 1931, 2593, 3529, 4051, 6053, 7207, 7451, 15139, 20809, 21647, 24203, 26921, 28807, 34849, 46819, 53147, 56453, 69193, 74507, 83233, 84053, 98573, 103067, 103969, 109517, 110459, 112339, 136247, 149059, 151253
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
17 and 19 are consecutive primes whose sum is 36, a square, so 19 is the first term.
|
|
MATHEMATICA
|
Transpose[Select[Partition[Prime[Range[14000]], 2, 1], IntegerQ[ Sqrt[ Total[#]]]&]] [[2]] (* Harvey P. Dale, May 03 2012 *)
|
|
PROG
|
(PARI) g(n) = for(x=2, n, if(issquare(prime(x)+prime(x-1)), print1(prime(x)", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|