OFFSET
1,2
COMMENTS
This is a permutation of the positive integers.
MAPLE
a := [1] ; for n from 2 to 100 do ldig := op(-1, a) mod 10 ; for c from 1 do if c in a then ; else dgs := convert(c, base, 10) ; if ldig in dgs then a := [op(a), c] ; break; fi; fi; od: od: print(a) ; # R. J. Mathar
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Franklin T. Adams-Watters, Jan 31 2009
STATUS
approved