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.

A073784 Number of primes between successive composite numbers.

This page as a plain text file.
%I A073784 #11 Apr 01 2021 13:18:54
%S A073784 1,1,0,0,1,1,0,0,1,1,0,0,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,1,0,0,0,
%T A073784 0,1,0,0,0,0,1,1,0,0,0,0,1,0,0,1,1,0,0,0,0,1,0,0,1,0,0,0,0,1,0,0,0,0,
%U A073784 0,0,1,0,0,1,1,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,0,0,1,1,0
%N A073784 Number of primes between successive composite numbers.
%H A073784 Harvey P. Dale, <a href="/A073784/b073784.txt">Table of n, a(n) for n = 1..1000</a>
%e A073784 a(7) = 0 since there are no primes between the 7th and the 8th composites (14 and 15).
%t A073784 Composite[n_Integer] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[ PrimePi[Composite[n + 1]] - PrimePi[Composite[n]], {n, 105}] (* _Robert G. Wilson v_, Dec 20 2004 *)
%t A073784 Differences[Select[Range[300],CompositeQ]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Apr 01 2021 *)
%Y A073784 a(n) = A073783(n) - 1.
%Y A073784 a(n) = A002808(n+1) - A002808(n) - 1.
%Y A073784 Also first differences of A073425.
%K A073784 easy,nonn
%O A073784 1,1
%A A073784 _Lior Manor_, Aug 11 2002