OFFSET
1,2
LINKS
Aviezri S. Fraenkel, The vile, dopey, evil and odious game players, Discrete Math. 312 (1) (2012) 42-46.
FORMULA
a(n) = 4*A171948(n).
Conjecture: For n>=2, a(n) = A217319(n-1). - Vladimir Shevelev, Mar 18 2013
MAPLE
isA171948 := proc(n)
option remember;
if n <=3 then
true;
elif isA171949(n) then
false;
else
true ;
end if;
end proc:
isA171949 := proc(n)
option remember;
if n mod 4 <> 0 then
return false;
end if;
if isA171948(n/4) then
true;
else
false ;
end if;
end proc:
for n from 0 to 400 do
if isA171949(n) then
printf("%d, ", n);
end if;
end do: # R. J. Mathar, Mar 28 2013
MATHEMATICA
isA171948[n_] := isA171948[n] =
If[n <= 3, True, If[isA171949[n], False, True]];
isA171949[n_] := isA171949[n] =
If[Mod[n, 4] != 0, False, If[isA171948[n/4], True, False]];
Select[Range[0, 400], isA171949] (* Jean-François Alcover, Apr 16 2023, after R. J. Mathar *)
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Oct 29 2010
STATUS
approved