OFFSET
1,2
EXAMPLE
a(6)= 246531, the steps are 6 -> 65 -> 465 -> 4653 -> 24653 -> 246531.
MATHEMATICA
f[n_] := Block[{j = 1, k = n - 1, d = IntegerDigits[n]}, While[k > 0, If[ EvenQ[j], d = Join[ IntegerDigits[k], d], d = Join[d, IntegerDigits[k]]]; j++; k-- ]; FromDigits[d]]; Table[ f[n], {n, 17}]
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Nov 08 2003
EXTENSIONS
More terms from Robert G. Wilson v, Nov 08 2003
STATUS
approved