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.

A085416 Take prime[n] and continue adding 1,2,..., A085415(n) until one reaches a prime a(n).

This page as a plain text file.
%I A085416 #8 Aug 11 2019 12:30:10
%S A085416 3,13,11,13,17,19,23,29,29,107,37,43,47,53,53,59,137,67,73,107,79,89,
%T A085416 89,167,103,107,109,113,137,149,137,137,173,149,227,157,163,173,173,
%U A085416 179,257,191,197,199,233,227,239,229,233,239,239,317,251,257,263,269,347
%N A085416 Take prime[n] and continue adding 1,2,..., A085415(n) until one reaches a prime a(n).
%C A085416 Primes resulting in procedure of A085415. See also A085417, A085418.
%H A085416 Harvey P. Dale, <a href="/A085416/b085416.txt">Table of n, a(n) for n = 1..1000</a>
%e A085416 a(2)=13 because prime[2]=3 and 3+(1+2+3+4)=3+10=13 is a prime.
%t A085416 Table[SelectFirst[Prime[n]+Accumulate[Range[20]],PrimeQ],{n,60}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 11 2019 *)
%Y A085416 Cf. A085415, A085417, A085418.
%K A085416 easy,nonn
%O A085416 1,1
%A A085416 _Zak Seidov_, Jun 29 2003