OFFSET
1,1
MATHEMATICA
a[1] = 3; a[2] = 1;
a[n_] := a[n] = If[PrimeQ[n], (n + 1)/2, a[Floor[n/2]]];
Table[a[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Nov 03 2008
STATUS
approved