OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
MATHEMATICA
altQ[n_] := n < 10 || Union[Total /@ Partition[ Mod[ IntegerDigits@n, 2], 2, 1]] == {1}; Select[ Range[1, 2000, 2]^2, altQ[#] &] (* Giovanni Resta, Aug 16 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Offset changed by Giovanni Resta, Aug 16 2018
STATUS
approved