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
Robert Israel, Table of n, a(n) for n = 0..10000
F. Smarandache, Collected Papers, Vol. II
F. Smarandache, Sequences of Numbers Involved in Unsolved Problems.
Eric Weisstein's World of Mathematics, Smarandache Sequences
MAPLE
f:= proc(n) local L, i;
L:= subs(2=NULL, 3=NULL, 5=NULL, 7=NULL, convert(n, base, 10));
if L = [] then NULL else add(L[i]*10^(i-1), i=1..nops(L)) fi
end proc:
map(f, [$0..100]); # Robert Israel, Nov 21 2024
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
KEYWORD
AUTHOR
R. Muller
EXTENSIONS
a(42) corrected and extended by T. D. Noe, Oct 18 2011
STATUS
approved