OFFSET
1,1
COMMENTS
If (prime(n+1)-1)/2 is even/odd then a(n) is the next odd/even number.
MATHEMATICA
bb={}; od=-1; ev=0; Do[If[OddQ[(Prime[i]-1)/2], ev=ev+2; bb=Append[bb, ev], od=od+2; bb=Append[bb, od]], {i, 2, 200}]; bb
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 01 2005
STATUS
approved