OFFSET
1,2
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..10002
MAPLE
A095096 := proc(n)
option remember;
local a;
if n =1 then
0;
else
for a from procname(n-1)+1 do
if A095076(a) = 0 then
return a;
end if;
end do:
end if;
end proc:
seq(A095096(n), n=1..60) ; # R. J. Mathar, Sep 22 2020
MATHEMATICA
Flatten @ Position[Mod[DigitCount[Select[Range[0, 1000], BitAnd[#, 2 #] == 0 &], 2, 1], 2], 0] - 1 (* Amiram Eldar, Feb 05 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 01 2004
EXTENSIONS
Changed offset to 1. - N. J. A. Sloane, Sep 12 2020
STATUS
approved