|
| |
|
|
A074837
|
|
Numbers n such that the penultimate 3 divisors of n sum to n.
|
|
0
| |
|
|
6, 18, 42, 54, 66, 78, 102, 114, 126, 138, 162, 174, 186, 198, 222, 234, 246, 258, 282, 294, 306, 318, 342, 354, 366, 378, 402, 414, 426, 438, 462, 474, 486, 498, 522, 534, 546, 558, 582, 594, 606, 618, 642, 654, 666, 678, 702, 714, 726, 738, 762, 774, 786
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| It seems that only numbers that are 6 mod 12 are present except for multiples of 30.
|
|
|
EXAMPLE
| 18 has the divisors 1,2,3,6,9,18. The penultimate 3 are 3,6,9, which sum to 18.
|
|
|
MATHEMATICA
| Select[Range[1000], Length[Divisors[ # ]]>3 && Sum[Divisors[ # ][[ -i]], {i, 2, 4}]==# &] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Aug 01 2007
|
|
|
PROG
| (PARI) for (n=1, 300, dn=divisors(n); dnl=length(dn); if (dnl>3, if (n==dn[dnl-1]+dn[dnl-2]+dn[dnl-3], print(n))))
|
|
|
CROSSREFS
| Sequence in context: A163983 A191829 A023620 * A015942 A009945 A011930
Adjacent sequences: A074834 A074835 A074836 * A074838 A074839 A074840
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Sep 09 2002
|
|
|
EXTENSIONS
| More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Aug 01 2007
|
| |
|
|
