cp's OEIS Frontend

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.

A073766 a(n) = binomial(composite(n+1), composite(n)) = binomial(A002808(n+1), A002808(n)).

This page as a plain text file.
%I A073766 #15 Nov 05 2020 19:27:12
%S A073766 15,28,9,10,66,91,15,16,153,190,21,22,276,25,26,27,28,435,496,33,34,
%T A073766 35,36,703,39,40,861,946,45,46,1128,49,50,51,52,1431,55,56,57,58,1770,
%U A073766 1891,63,64,65,66,2278,69,70,2556,2701,75,76,77,78,3160,81,82,3486,85
%N A073766 a(n) = binomial(composite(n+1), composite(n)) = binomial(A002808(n+1), A002808(n)).
%C A073766 a(n) equals either composite(n+1) or composite(w)+1 or binomial(c,2) for some composite number c.
%H A073766 Michael De Vlieger, <a href="/A073766/b073766.txt">Table of n, a(n) for n = 1..10000</a>
%t A073766 Block[{f}, f[n_] := FixedPoint[n + PrimePi@ # + 1 &, n + PrimePi[n] + 1]; Array[Binomial[f[# + 1], f[#]] &, 10^4]] (* _Michael De Vlieger_, Nov 05 2020 *)
%o A073766 (PARI) lista(nn) = {my(prec  = 0); forcomposite(c=1, nn, if (prec, print1(binomial(c, prec), ", ")); prec = c;);} \\ _Michel Marcus_, Mar 26 2020
%Y A073766 Cf. A002808.
%K A073766 nonn
%O A073766 1,1
%A A073766 _Labos Elemer_, Aug 09 2002
%E A073766 Edited by _Michael De Vlieger_, Nov 05 2020