A373412 Sum of the n-th maximal antirun of nonsquarefree numbers differing by more than one.
12, 99, 52, 180, 93, 49, 335, 279, 156, 629, 99, 540, 237, 245, 125, 521, 567, 450, 963, 340, 347, 728, 1386, 1080, 1637, 243, 244, 1511, 1610, 555, 852, 1171, 2142, 960, 985, 1689, 343, 1042, 351, 1068, 724, 732, 1116, 1905, 1980, 2898, 424, 2161, 3150, 2339
Offset: 1
Keywords
Examples
Row-sums of: 4 8 9 12 16 18 20 24 25 27 28 32 36 40 44 45 48 49 50 52 54 56 60 63 64 68 72 75 76 80 81 84 88 90 92 96 98 99
Links
Crossrefs
The partial sums are a subset of A329472.
Programs
-
Mathematica
Total/@Split[Select[Range[100],!SquareFreeQ[#]&],#1+1!=#2&]//Most
Comments