OFFSET
1,2
COMMENTS
LINKS
Michel Lagneau, Table of n, a(n) for n = 1..1000
EXAMPLE
MAPLE
T:=array(1..900): T[1]:=2:ii:=1:for x from 2 by 2 to 10000 do:y:=x^2+1:if type(y, prime)=true then ii:=ii+1:T[ii]:=y:else fi:od:for k from 1 to ii-1do: p0:=T[k]:p1:= T[k+1]: j:=0:for m from p0+1 to p1-1 do:if type(m, prime)=true then j:=j+1:else fi:od: printf(`%d, `, j):od:
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Feb 01 2012
STATUS
approved