This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A356179 #19 Jul 30 2022 08:20:36 %S A356179 1,5,35,70,210,420,2310,4620,18480,32340,60060,120120,240240,720720, %T A356179 1141140,2042040,4084080,4564560,13693680,19399380,38798760,77597520, %U A356179 232792560,387987600 %N A356179 Positions of records in A279497, i.e., integers whose number of pentagonal divisors sets a new record. %C A356179 The first fourteen terms are the same as A356132; then a(15) = 1141140 while A356132(15) = 1261260. %C A356179 Corresponding records of number of pentagonal divisors are 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 16, ... %e A356179 210 is in the sequence because A279497(210) = 5 is larger than any earlier value in A279497. %t A356179 f[n_] := DivisorSum[n, 1 &, IntegerQ[(1 + Sqrt[1 + 24*#])/6] &]; fm = -1; s = {}; Do[If[(fn = f[n]) > fm, fm = fn; AppendTo[s, n]], {n, 1, 10^5}]; s (* _Amiram Eldar_, Jul 28 2022 *) %o A356179 (PARI) lista(nn) = my(m=0); for (n=1, nn, my(new = sumdiv(n, d, ispolygonal(d, 5))); if (new > m, m = new; print1(n, ", "));); \\ _Michel Marcus_, Jul 28 2022 %Y A356179 Cf. A000326, A279497, A356132. %Y A356179 Similar sequences: A046952, A093036, A350756, A355595. %K A356179 nonn,more %O A356179 1,2 %A A356179 _Bernard Schott_, Jul 28 2022 %E A356179 a(23)-a(24) from _David A. Corneth_, Jul 28 2022