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