OFFSET
1,1
MATHEMATICA
m = 2; 1 + Select[ Range[800], Prime[ # + 2] - 2*Prime[ # + 1] + Prime[ # ] - 4*m == 0 &] (* Robert G. Wilson v, Jul 14 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jul 02 2004
EXTENSIONS
Edited by Robert G. Wilson v, Jul 14 2004
Edited by N. J. A. Sloane, Nov 07 2005
STATUS
approved