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.

A181503 Slowest-growing sequence of primes p where 1/(p+1) sums to 1 without actually reaching it.

This page as a plain text file.
%I A181503 #15 Jul 13 2015 22:36:16
%S A181503 2,3,5,7,11,29,127,1931,309121,47777896349,76090912606600214447,
%T A181503 120621395443859821620817698234224534627,
%U A181503 63813688766771960235613705494151343867425896610637722399417500492543759703
%N A181503 Slowest-growing sequence of primes p where 1/(p+1) sums to 1 without actually reaching it.
%C A181503 The sum of 1/(p+1) over p = 2, 3, 5, 7, 11, 23 = A046689 is exactly 1.
%H A181503 Robert G. Wilson v, <a href="/A181503/b181503.txt"> Table of n, a(n) for n = 1..17 </a>. [From _Robert G. Wilson v_, Oct 27 2010]
%t A181503 a[n_] := a[n] = Block[{sm = Sum[1/(a[i] + 1), {i, n - 1}]}, NextPrime[ Max[ a[n - 1], 1/(1 - sm)]]]; a[0] = 1; Array[a, 15] (* _Robert G. Wilson v_, Oct 27 2010 *)
%Y A181503 Similar to A075442. See also A046689.
%K A181503 nice,nonn
%O A181503 1,1
%A A181503 _Aaron Meyerowitz_, Oct 24 2010
%E A181503 a(12) onwards from _Robert G. Wilson v_, Oct 27 2010