OFFSET
0,4
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) local L, i;
L:= subs(2=NULL, convert(n, base, 10));
add(L[i]*10^(i-1), i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Sep 15 2024
MATHEMATICA
Table[FromDigits[DeleteCases[IntegerDigits[n], 2]], {n, 0, 80}] (* Harvey P. Dale, Feb 12 2022 *)
CROSSREFS
KEYWORD
AUTHOR
STATUS
approved