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 A215015 #34 Feb 15 2024 10:03:12 %S A215015 0,0,11,337,4206,43330,417479,3917508,36358375,336046778,3105465308, %T A215015 28739218426 %N A215015 Number of sphenic twins up to 10^n. %C A215015 The sphenic twin pairs {230, 231}, {285, 286}, ... are counted once at a time. %H A215015 Lucas A. Brown, <a href="https://github.com/lucasaugustus/oeis/blob/main/A215015.py">Python program</a>. %e A215015 a(3) = 11 since there are 11 sphenic twins below 10^3 whose smaller members are 230, 285, 429, 434, 609, 645, 741, 805, 902, 969, 986. %t A215015 sphQ[n_]:= FactorInteger[n][[;;,2]] == {1, 1, 1}; c = 0; p = 10; q1 = 0; seq = {}; Do[q2 = sphQ[k]; If[q1 && q2, c++]; If[k == p, AppendTo[seq, c]; p*=10]; q1 = q2, {k, 2, 10^5}]; seq (* _Amiram Eldar_, Dec 26 2019 *) %Y A215015 Cf. A007304, A215217, A066509, A215218, A215152. %K A215015 nonn,more,hard %O A215015 1,3 %A A215015 _Martin Renner_, Aug 06 2012 %E A215015 a(8)-a(10) from _Amiram Eldar_, Dec 26 2019 %E A215015 a(11)-a(12) from _Lucas A. Brown_, Feb 12 2024