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.

A085344 Least number x such that number of primes between sigma(x) and x equals n.

This page as a plain text file.
%I A085344 #15 Mar 01 2020 07:17:57
%S A085344 2,4,10,12,16,46,28,24,44,30,42,40,36,54,48,66,178,78,104,80,102,60,
%T A085344 128,72,84,152,90,138,255,96,108,174,140,126,132,266,160,150,248,222,
%U A085344 156,120,246,200,144,198,634,224,220,204,370,260,168,376,555,430,354,308
%N A085344 Least number x such that number of primes between sigma(x) and x equals n.
%H A085344 Amiram Eldar, <a href="/A085344/b085344.txt">Table of n, a(n) for n = 1..10000</a>
%F A085344 a(n) = Min{x; A085341(x)=n}.
%t A085344 m = 100; seq = Table[0, {m}]; c = 0; n = 0; While[c < m, n++; i = PrimePi[ DivisorSigma[1, n]] - PrimePi[n]; If[i <= m && seq[[i]] == 0, c++; seq[[i]] = n]]; seq (* _Amiram Eldar_, Mar 01 2020 *)
%o A085344 (PARI) a(n) = {my(x=1); while (primepi(sigma(x)) - primepi(x) != n, x++); x;} \\ _Michel Marcus_, Mar 01 2020
%Y A085344 Cf. A000720, A000010, A000203, A070803, A070804.
%Y A085344 Cf. A085341, A085342, A085343, A085345, A085346, A085347.
%K A085344 nonn
%O A085344 1,1
%A A085344 _Labos Elemer_, Jul 10 2003