A019516 Delete all 2's, 3's, 5's and 7's from the sequence of nonnegative integers.

0, 1, 4, 6, 8, 9, 10, 11, 1, 1, 14, 1, 16, 1, 18, 19, 0, 1, 4, 6, 8, 9, 0, 1, 4, 6, 8, 9, 40, 41, 4, 4, 44, 4, 46, 4, 48, 49, 0, 1, 4, 6, 8, 9, 60, 61, 6, 6, 64, 6, 66, 6, 68, 69, 0, 1, 4, 6, 8, 9, 80, 81, 8, 8, 84, 8, 86, 8, 88, 89, 90, 91, 9, 9, 94, 9, 96

Offset

0,3

References

F. Iacobescu, Smarandache Partition Type and Other Sequences, Bull. Pure Appl. Sciences, Vol. 16E, No. 2 (1997), pp. 237-240.

Links

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

F. Smarandache, Collected Papers, Vol. II

F. Smarandache, Sequences of Numbers Involved in Unsolved Problems.

Eric Weisstein's World of Mathematics, Smarandache Sequences

Mathematica

t = Table[IntegerDigits[n], {n, 0, 100}]; t2 = Table[Select[t[[i]], ! MemberQ[{2, 3, 5, 7}, #] &], {i, Length[t]}]; t3 = DeleteCases[t2, {}]; FromDigits /@ t3 (* T. D. Noe, Oct 18 2011 *)

Crossrefs

Sequence in context: A123870 A318708 A085049 * A031977 A225668 A091985

Adjacent sequences: A019513 A019514 A019515 * A019517 A019518 A019519

Keyword

base,nonn

Author

R. Muller

Extensions

a(42) corrected and extended by T. D. Noe, Oct 18 2011

Status

approved