OFFSET
1,1
MATHEMATICA
Table[If[PrimeQ[n], n-1, n+1], {n, 1, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 04 2009
STATUS
approved