Robert Israel, <a href="/A019516/b019516_1.txt">Table of n, a(n) for n = 0..10000</a>
Robert Israel, <a href="/A019516/b019516_1.txt">Table of n, a(n) for n = 0..10000</a>
proposed
approved
editing
proposed
base,nonn,changed,look
Robert Israel, <a href="/A019516/b019516_1.txt">Table of n, a(n) for n = 0..10000</a>
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
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmarandacheSequences.html">Smarandache Sequences</a>
Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SmarandacheSequences.html">Smarandache Sequences</a>
a(42) corrected and extended by _T. D. Noe, _, Oct 18 2011
approved
editing
editing
approved