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.

A254033 Number of primes dividing exactly one number in the next largest gap between primes.

This page as a plain text file.
%I A254033 #19 Jun 13 2018 03:27:17
%S A254033 0,1,2,3,6,10,15,20,21,28,37,44,53,76,96,113,123,135,142,150,181,191,
%T A254033 235,270,291,294,313,327,334,395,403,411,445,478,496,539,582,587,654,
%U A254033 693,722,732,757,754,772,778,791,832,830,848,920,930,955,1004,1053,1151,1240
%N A254033 Number of primes dividing exactly one number in the next largest gap between primes.
%H A254033 Robert G. Wilson v, <a href="/A254033/b254033.txt">Table of n, a(n) for n = 1..75</a>
%e A254033 The 5th largest prime gap (after 2-3, 3-5, 7-11 and 23-29) occurs between 89 and 97, and there are 6 primes which occur exactly once in this gap, namely 7 (dividing 91), 13 (dividing 91), 19 (dividing 95), 23 (dividing 92), 31 (dividing 93) and 47 (dividing 94), so a(5)=6.
%t A254033 gp = (* the list of primes in A002386 *); f[n_] := Block[{p = gp[[n]], q = NextPrime[ gp[[n]]]}, r = Range[p + 1, q - 1]; lng = Length@ r; t = Split@ Sort@ Flatten@ Table[ First@# & /@ FactorInteger[ r[[i]]], {i, lng}]; Length@ Select[t, Length@# == 1 &]]; Array[f, 75] (* _Robert G. Wilson v_, Jan 23 2015 *)
%Y A254033 Sequences related to increasing prime gaps: A005250, A002386, A000101, A005669.
%K A254033 nonn
%O A254033 1,3
%A A254033 _Mamuka Jibladze_, Jan 23 2015
%E A254033 a(43)-a(57) from _Robert G. Wilson v_, Jan 23 2015