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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A066190 Numbers k such that the sum of the even aliquot parts of k divides k. 1
 4, 6, 10, 12, 14, 22, 26, 34, 38, 46, 56, 58, 62, 74, 82, 86, 94, 106, 118, 122, 134, 142, 146, 158, 166, 178, 194, 202, 206, 214, 218, 226, 254, 262, 274, 278, 298, 302, 314, 326, 334, 346, 358, 362, 382, 386, 394, 398, 422, 446, 454, 458, 466, 478, 482, 502 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Harry J. Smith, Table of n, a(n) for n = 1..1000 FORMULA a(n) = 2*A053813(n). - Amiram Eldar, Jul 07 2022 MATHEMATICA Do[ d = Drop[ Divisors[ n ], -1 ]; l = Length[ d ]; ev = 0; k = 2; While[ k <= l, If[ EvenQ[ d[ [ k ] ] ], ev = ev + d[ [ k ] ] ]; k++ ]; If[ IntegerQ[ n/ev ], Print[ n ] ], {n, 2, 10^3, 2} ] Select[Range[550], Divisible[#, Total[Select[Most[Divisors[#]], EvenQ]]]&]//Quiet (* Harvey P. Dale, Mar 11 2011 *) PROG (PARI) { n=0; for (m=1, 10^9, d=divisors(m); s=0; for (i=2, numdiv(m) - 1, if (d[i]%2 == 0, s += d[i])); if (s > 0 && m%s == 0, write("b066190.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Feb 05 2010 CROSSREFS Union of A100484 and A139256. Cf. A053813. Sequence in context: A026402 A036438 A338519 * A058012 A026411 A020189 Adjacent sequences: A066187 A066188 A066189 * A066191 A066192 A066193 KEYWORD nonn AUTHOR Robert G. Wilson v, Dec 15 2001 EXTENSIONS a(56) from Harry J. Smith, Feb 05 2010 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.

Last modified July 12 09:52 EDT 2024. Contains 374239 sequences. (Running on oeis4.)