login
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
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Dec 15 2001
EXTENSIONS
a(56) from Harry J. Smith, Feb 05 2010
STATUS
approved