OFFSET
1,1
LINKS
Bernhard Helmes, Prime sieving on the polynomial f(n)=2n^2-1.
MATHEMATICA
l = 0; p = 2; c = {}; a = {}; Do[k = p x^2 - 1; b = Divisors[k]; Do[If[PrimeQ[b[[n]]], AppendTo[a, b[[n]]]], {n, 1, Length[b]}]; If[N[Log[x]/Log[10]] == Round[N[Log[x]/Log[10]]], a = Union[a]; l = Length[a]; Print[l]; AppendTo[c, l]], {x, 1, 10000}]; c (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Sep 04 2008
EXTENSIONS
Fixed broken link and corrected terms to agree with website - Ray Chandler, Jun 30 2015
STATUS
approved