OFFSET
1,2
COMMENTS
An analog of A227891. All terms are perfect squares.
LINKS
Vladimir Shevelev, A set of sequences of perfect squares
EXAMPLE
n=100 has 8 proper divisors {1,2,4,5,10,20,25,50} from which 4 from A {1,4,10,25} and 4 from B {2,5,20,50}. So 100 is in the sequence.
MATHEMATICA
odiousQ[n_]:=OddQ[DigitCount[n, 2][[1]]];
Select[Range[100], 0==Length[#]-2Length[Select[#, odiousQ[#+2]&]]&[Most[Divisors[#^2]]]&]^2 (* Peter J. C. Moses, Nov 08 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Nov 05 2013
EXTENSIONS
More terms from Peter J. C. Moses, Nov 05 2013
STATUS
approved