|
| |
|
|
A019516
|
|
Delete all 2s, 3s, 5s, 7s from the sequence of nonnegative integers.
|
|
1
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
REFERENCES
| F. Smarandache, "Collected Papers", Vol. II, Tempus Publ. Hse., Buharest, Romania, 1996.
F. Iacobescu, Smarandache Partition Type and Other Sequences, Bull. Pure Appl. Sciences, Vol. 16E, No. 2 (1997), pp. 237-240.
F. Smarandache, Sequences of Numbers Involved in Unsolved Problems, Hexis, Phoenix, 2006.
|
|
|
LINKS
| M. L. Perez et al., eds., Smarandache Notions Journal
Eric Weisstein's World of Mathematics, Link to a section of The World of Mathematics.
F. Smarandache, Collected Papers, Vol. II
F. Smarandache, Sequences of Numbers Involved in Unsolved Problems.
|
|
|
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: A200363 A123870 A085049 * A031977 A091985 A091984
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
|
| |
|
|
