0,3

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

d6[n_]:=Module[{c=DeleteCases[IntegerDigits[n], 6]}, If[c=={}, Nothing, FromDigits[ c]]]; Array[d6, 80, 0] (* Harvey P. Dale, Oct 09 2017 *)

Sequence in context: A290019 A161924 A034153 * A129487 A097010 A132999

Adjacent sequences: A004722 A004723 A004724 * A004726 A004727 A004728

base,nonn

N. J. A. Sloane.

approved