1,2

This is a permutation of the positive integers.

Table of n, a(n) for n=1..72.

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

Cf. A076654, A125886.

Sequence in context: A337857 A044895 A156819 * A209932 A011540 A098394

Adjacent sequences: A139076 A139077 A139078 * A139080 A139081 A139082

base,nonn

Franklin T. Adams-Watters, Jan 31 2009

approved