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.

A133635 Nonprime numbers k such that binomial(k+p,k) mod k = 1, where p=5.

This page as a plain text file.
%I A133635 #9 Feb 22 2023 19:19:28
%S A133635 26,34,49,58,74,77,82,91,98,106,119,121,122,133,143,146,154,161,169,
%T A133635 178,187,194,202,203,209,217,218,221,226,242,247,253,259,266,274,287,
%U A133635 289,298,299,301,314,319,322,323,329,338,341,343,346,361,362,371,377,386
%N A133635 Nonprime numbers k such that binomial(k+p,k) mod k = 1, where p=5.
%H A133635 Harvey P. Dale, <a href="/A133635/b133635.txt">Table of n, a(n) for n = 1..1000</a>
%t A133635 nn=400;With[{c=Complement[Range[nn],Prime[Range[PrimePi[nn]]]]}, Select[ c,Mod[Binomial[#+5,#],#]==1&]] (* _Harvey P. Dale_, Sep 24 2012 *)
%o A133635 (Python)
%o A133635 from itertools import count, islice
%o A133635 from math import comb
%o A133635 from sympy import isprime
%o A133635 def A133635_gen(startvalue=1): # generator of terms >= startvalue
%o A133635     return filter(lambda k:comb(k+5,k)%k==1 and not isprime(k),count(max(startvalue,1)))
%o A133635 A133635_list = list(islice(A133635_gen(),30)) # _Chai Wah Wu_, Feb 22 2023
%Y A133635 Cf. A000040, A133620-A133625, A133630, A038509, A133634-A133636.
%Y A133635 Cf. A133875, A133885, A133880, A133890, A133900, A133910.
%K A133635 nonn
%O A133635 1,1
%A A133635 _Hieronymus Fischer_, Sep 30 2007