OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1)=1; then
a(2)=3 and a(3)=2 because p=3 is odd prime and p and p-1 are swapped.
MATHEMATICA
r=Range[100]; Do[If[PrimeQ[r[[i]]], {r[[i]], r[[i-1]]}={r[[i-1]], r[[i]]}], {i, 3, 97, 2}]; r
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 27 2007
STATUS
approved