login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A231175 Let A={2,4,5,8,9,11,14,...} be the sequence of numbers k>=1 such that k+1 is evil (A001969), and let B be the complement of A. The sequence lists numbers for which number of A-divisors equals number of B-divisors. 4
1, 4, 25, 100, 121, 289, 361, 529, 625, 841, 1156, 2116, 2209, 2500, 2809, 3249, 3364, 3481, 4489, 5041, 5929, 6241, 7225, 7921, 10201, 11236, 11449, 12769, 12996, 15625, 17161, 20164, 21025, 22201, 28900, 29584, 30625, 31329, 31684, 32041, 36481, 38809, 40804 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
COMMENTS
This is an analog of A227891. All terms are perfect squares.
LINKS
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
Sequence in context: A226547 A264167 A152215 * A082044 A167889 A329495
KEYWORD
nonn,base
AUTHOR
Vladimir Shevelev, Nov 05 2013
EXTENSIONS
More terms from Peter J. C. Moses
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 17:42 EDT 2024. Contains 371254 sequences. (Running on oeis4.)