This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A114899 a(1)=0. a(n+1) = number of earlier terms a(k) (1 <=k <=n) where a(k)+n is a prime. 3
 0, 0, 2, 3, 1, 3, 1, 2, 2, 3, 5, 5, 4, 3, 6, 4, 6, 7, 4, 5, 4, 3, 3, 4, 4, 8, 9, 9, 10, 6, 3, 6, 5, 8, 10, 9, 7, 14, 14, 13, 12, 10, 6, 11, 10, 7, 6, 11, 7, 11, 13, 9, 10, 12, 10, 14, 14, 19, 15, 13, 13, 16, 11, 15, 18, 16, 14, 18, 17, 20, 18, 12, 11, 16, 10, 13, 16, 13, 12, 18, 12, 10, 9, 18 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 LINKS T. D. Noe and Michael De Vlieger, Table of n, a(n) for n = 1..10000 (first 2000 terms from T. D. Noe) EXAMPLE If we add 10 to each of the first 10 terms of the sequence, we get [10,10,12,13,11,13,11,12,12,13]. Of these only the two 11's and the three 13's are primes. So a(11) = 5. MATHEMATICA Fold[Append[#1, Count[#1 + #2 - 1, _?PrimeQ]] &, {0}, Range[2, 84]] (* Michael De Vlieger, Sep 28 2017 *) PROG (PARI) seq=vector(200); print1(0, ", "); for(j=1, 190, count=0; for(k=0, j-1, if(isprime(j+seq[k+1])==1, count=count+1; )); seq[j+1]=count; print1(seq[j+1], ", ")) \\ Matthew Conroy, Feb 09 2006 CROSSREFS Cf. A114897, A114898, A123541. Sequence in context: A287566 A134411 A126044 * A220906 A023678 A128222 Adjacent sequences:  A114896 A114897 A114898 * A114900 A114901 A114902 KEYWORD nonn AUTHOR Leroy Quet, Jan 05 2006 EXTENSIONS More terms from Matthew Conroy, Feb 09 2006 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 21 11:36 EST 2019. Contains 320372 sequences. (Running on oeis4.)