A231094 Smallest starting abundant number for n consecutive even abundant numbers.
12, 18, 100, 348, 2988, 801340, 221355126, 221355126, 895257140404
Offset: 1
Examples
a(6) = 801340 because 801340 is the starting abundant number for 6 consecutive even abundant numbers: 801340, 801342, 801344, 801346, 801348, 801350.
Programs
-
Mathematica
k = 2; cnt = 0; Table[While[If[abunQ[k], cnt++, cnt = 0]; cnt < n, k = k + 2]; k = k + 2; k - 2*n, {n, 6}] (* T. D. Noe, Nov 04 2013 *)
Extensions
a(9) from Donovan Johnson, Nov 07 2013