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.

A064336 Maximal prime numbers with increasing prime differences.

This page as a plain text file.
%I A064336 #12 Jun 24 2018 18:31:44
%S A064336 2,3,5,7,13,23,31,47,61,83,109,139,173,211,251,293,337,389,449,509,
%T A064336 577,647,719,797,883,977,1069,1171,1277,1381,1493,1619,1747,1879,2017,
%U A064336 2161,2311,2467,2621,2777,2939,3109,3271,3461,3643,3833,4027,4231,4451,4673
%N A064336 Maximal prime numbers with increasing prime differences.
%H A064336 Harry J. Smith, <a href="/A064336/b064336.txt">Table of n, a(n) for n = 1..1000</a>
%F A064336 a(1) = 2, a(n+1) = MAX {prime p | p <= a(n) + p(n)} (where p(n) is the n-th prime number).
%e A064336 a(5) = 13, since a(4) = 7, p(4) = 7 and 13 is the largest prime which is not larger than 7 + 7.
%t A064336 PrevPrime[n_] := (k = n; While[ ! PrimeQ[k], k-- ]; k); f[1] = 2; f[n_] := PrevPrime[ f[n - 1] + Prime[n] ]; Table[ f[n], {n, 1, 50} ]
%o A064336 (PARI) { for (n=1, 1000, if (n>1, a=precprime(a + prime(n - 1)), a=2); write("b064336.txt", n, " ", a) ) } \\ _Harry J. Smith_, Sep 12 2009
%Y A064336 Cf. A064337.
%K A064336 easy,nonn
%O A064336 1,1
%A A064336 _Lior Manor_, Sep 13 2001