A031978 Omit digits 0, 1, 8 from n.

2, 3, 4, 5, 6, 7, 9, 2, 3, 4, 5, 6, 7, 9, 2, 2, 22, 23, 24, 25, 26, 27, 2, 29, 3, 3, 32, 33, 34, 35, 36, 37, 3, 39, 4, 4, 42, 43, 44, 45, 46, 47, 4, 49, 5, 5, 52, 53, 54, 55, 56, 57, 5, 59, 6, 6, 62, 63, 64, 65, 66, 67, 6, 69, 7, 7, 72, 73, 74, 75, 76, 77, 7, 79, 2, 3, 4, 5, 6, 7, 9, 9, 9

Offset

1,1

References

F. Iacobescu, Smarandache Partition Type And Other Sequences, Bulletin of Pure and Applied Sciences, Vol. 16E, No. 2, 1997, pp. 237-240

F. Smarandache, Properties of numbers, ASU Special Collections, 1973.

Links

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

Mathematica

DeleteCases[Table[FromDigits[(IntegerDigits[n]/.Thread[{0, 1, 8}-> Nothing])], {n, 100}], 0](* Harvey P. Dale, Oct 24 2016 *)

Crossrefs

Sequence in context: A084689 A021085 A031006 * A304481 A222254 A235489

Adjacent sequences: A031975 A031976 A031977 * A031979 A031980 A031981

Keyword

nonn,base,easy

Author

J. Castillo (arp(AT)cia-g.com) [Broken email address?]

Extensions

Corrected and extended by Larry Reeves (larryr(AT)acm.org), Mar 27 2000

Status

approved