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 A119965 #7 Mar 30 2012 18:40:37 %S A119965 1,8,42,174,705,2764,10772,41967,164793,654242,2634801,10787937, %T A119965 44983894,191249703,829651874,3673967785,16612478231,76708135651, %U A119965 361707435767,1741601413569,8561660600005 %N A119965 The 3-almost primeth recurrence: a(0) = 1, a(n+1) = 3-almostprime(a(n)) = A014612(a(n)). %C A119965 3-almostprime equivalent of Wilson's primeth recurrence: A007097. %t A119965 ThreeAlmostPrimePi[n_] := Sum[PrimePi[n/(Prime@i*Prime@j)] - j + 1, {i, PrimePi[n^(1/3)]}, {j, i, PrimePi@Sqrt[n/Prime@i]}]; ThreeAlmostPrime[n_] := Block[{e = Floor[Log[2, n] + 1], a, b}, a = 2^e; Do[b = 2^p; While[ThreeAlmostPrimePi[a] < n, a = a + b]; a = a - b/2, {p, e, 0, -1}]; a + b/2]; NestList[ThreeAlmostPrime@# &, 1, 18] %Y A119965 Cf. A007097, A105999, A119966. %K A119965 nonn %O A119965 0,2 %A A119965 _Jonathan Vos Post_ and _Robert G. Wilson v_, May 31 2006 %E A119965 a(19)-a(20) from _Donovan Johnson_, Sep 29 2010