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 A083510 #8 Sep 24 2023 04:28:56 %S A083510 4,22,29,37,79,106,154,172,191,211,254,326,352,379,466,529,667,704, %T A083510 904,947,991,1036,1129,1177,1276,1379,1486,1541,1597,1654,1712,1771, %U A083510 1892,1954,2279,2347,2557,2629,2776,2927,3004,3082,3161,3404,3571,3742,3829 %N A083510 Members of A000124 which are the arithmetic mean of two other members. %e A083510 4 = (1+7)/2, 37 = (7 +67)/2. etc. %o A083510 (PARI) V = vector(5000); for (i = 1, 5000, V[i] = 1 + binomial(i, 2)); count = 0; i = 1; while (count < 50, i++; found = 0; j = i - 1; k = i + 1; x = 2*V[i]; while (!found && j, if (V[j] + V[k] > x, j--, if (V[j] + V[k] < x, k++, found = 1))); if (found, count++; print1(V[i], ", "))); \\ _David Wasserman_, Nov 18 2004 %Y A083510 Cf. A000124. %K A083510 nonn %O A083510 1,1 %A A083510 _Amarnath Murthy_, May 05 2003 %E A083510 Corrected and extended by _David Wasserman_, Nov 18 2004