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 A359015 #12 Jul 03 2025 04:33:16 %S A359015 7,17,84,115,220,468,3058,5719,18290,182104,144738,1984619,12051935, %T A359015 41133455,79156454 %N A359015 a(n) is the index of the smallest n-gonal pyramidal number with exactly n distinct prime factors. %H A359015 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/DistinctPrimeFactors.html">Distinct Prime Factors</a>. %H A359015 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/PyramidalNumber.html">Pyramidal Number</a>. %t A359015 p[k_, n_] := k*(k + 1)*((n - 2)*k + 5 - n)/6; a[n_] := Module[{k = 1}, While[PrimeNu[p[k, n]] != n, k++]; k]; Array[a, 11, 3] (* _Amiram Eldar_, Jul 03 2025 *) %o A359015 (PARI) p(k, n) = k*(k + 1)*((n - 2)*k + 5 - n)/6; %o A359015 a(n) = {my(k = 1); while(omega(p(k, n)) != n, k++); k;} \\ _Amiram Eldar_, Jul 03 2025 %Y A359015 Cf. A358864, A359016. %K A359015 nonn,more %O A359015 3,1 %A A359015 _Ilya Gutkovskiy_, Dec 12 2022 %E A359015 a(16)-a(17) from _Amiram Eldar_, Jul 03 2025