login
A045240
Numbers whose base-5 representation contains exactly two 1's and no 3's.
1
6, 26, 30, 32, 34, 36, 46, 56, 106, 126, 130, 132, 134, 136, 146, 150, 152, 154, 160, 162, 164, 170, 172, 174, 176, 180, 182, 184, 186, 196, 226, 230, 232, 234, 236, 246, 256, 276, 280, 282, 284, 286, 296, 306, 356, 506, 526, 530
OFFSET
1,1
LINKS
MAPLE
A0[1]:= {2, 4}:
A1[1]:= {1}:
A11[1]:= {}:
count:= 0:
for n from 2 while count < 1000 do
A0[n]:= map(t -> (5*t, 5*t+2, 5*t+4), A0[n-1]);
A1[n]:= map(t -> (5*t, 5*t+2, 5*t+4), A1[n-1]) union map(t -> 5*t+1, A0[n-1]);
A11[n]:= map(t -> (5*t, 5*t+2, 5*t+4), A11[n-1]) union map(t -> 5*t+1, A1[n-1]);
count:= count + nops(A11[n]);
od:
sort([seq(op(A11[i]), i=1..n-1)]); # Robert Israel, Dec 10 2023
CROSSREFS
Cf. A007091.
Sequence in context: A043354 A023727 A045255 * A045225 A038474 A043006
KEYWORD
nonn,base
STATUS
approved