OFFSET
1,2
COMMENTS
This is 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, {2,4,5,50} and 4 from B, {1,10,20,25}. So 100 is in the sequence.
MATHEMATICA
evilQ[n_] := EvenQ[DigitCount[n, 2] // First]; selQ[n_] := Length[Select[d = Most[Divisors[n]], evilQ[#+1]&]] == Length[d]/2; Select[Range[200]^2, selQ] (* Jean-François Alcover, Nov 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Nov 05 2013
EXTENSIONS
More terms from Peter J. C. Moses
STATUS
approved