OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
R[1]:= [1, 3, 5, 7, 9]:
for d from 2 to 3 do
R[d]:= map(t -> seq(10*t+i, i=[1, 3, 5, 7, 9]), R[d-1])
od:
B:= map(op, [seq(R[d], d=1..3)]):
B[2..-1]-B[1..-2]; # Robert Israel, Jan 24 2022
MATHEMATICA
Differences[Select[Range[1000], Count[IntegerDigits[#], _?EvenQ]==0&]] (* Harvey P. Dale, Jan 03 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Aug 30 2009
STATUS
approved