0,1

Table of n, a(n) for n=0..24.

12!_b = 11100100011001111110000000000 and 12_b = 1100 and the later string appears thrice in the former string.

f[n_] := ToString[ FromDigits[ IntegerDigits[n, 2]]]; g[n_] := Length[ StringPosition[ f[n! ], f[n]]]; a = Table[0, {30}]; Do[ b = g[n]; If[a[[b + 1]] == 0, a[[b + 1]] = n], {n, 29000}]; a

Cf. A093685.

Sequence in context: A221364 A211805 A211808 * A144699 A066787 A058352

Adjacent sequences: A093823 A093824 A093825 * A093827 A093828 A093829

nonn

Robert G. Wilson v and Reinhard Zumkeller, Apr 16 2004

approved