2,1

Table of n, a(n) for n=2..63.

a = Table[0, {100} ]; Do[ If[ a[[f[n]]] == 0, a[[f[n]]] = n], {n, 101, 1000} ]; a

Cf. A010340.

Sequence in context: A284188 A011158 A104647 * A262263 A072987 A010075

Adjacent sequences: A065112 A065113 A065114 * A065116 A065117 A065118

cofr,nonn

Robert G. Wilson v, Nov 12 2001

approved