OFFSET
1,2
COMMENTS
Standard heuristics suggest that this sequence is infinite. - Charles R Greathouse IV, Dec 29 2013
EXAMPLE
a(2) = 22 because 1 + 4 + 6 + 8 + 9 + 10 + ... + 22 = 176 and 176/22 = 8.
MATHEMATICA
s = 0; Do[If[PrimeQ[k], Continue[]]; s += k; If[Mod[s, k] == 0, Print[k]], {k, 10^10}] (* Gomez *)
Select[Range[10^4], Not[PrimeQ[#]] && Divisible[Sum[Boole[Not[PrimeQ[m]]]m, {m, #}], #] &] (* Alonso del Arte, Dec 29 2013 *)
PROG
(PARI) v=List([s=1]); forcomposite(n=4, 1e9, if(s%n==0, listput(v, n)); s+=n); Vec(v) \\ Charles R Greathouse IV, Dec 29 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Vicente Izquierdo Gomez, Dec 27 2013
EXTENSIONS
a(14)-a(27) from Donovan Johnson, Dec 30 2013
STATUS
approved