A177018 a(n) is the smallest integer >= a(n-1) such that a(n) + A067076(n) + n-1 is an odd prime.

3, 3, 3, 4, 4, 5, 5, 6, 8, 8, 10, 11, 11, 12, 14, 16, 16, 18, 19, 19, 21, 22, 24, 27, 28, 28, 29, 29, 30, 36, 37, 39, 39, 43, 43, 45, 47, 48, 50, 52, 52, 56, 56, 57, 57, 62, 67, 68, 68, 69, 71, 71, 75, 77, 79, 81, 81, 83, 84, 84, 88, 94, 95, 95

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

3+0+0=3; 3+1+1=5; 3+2+2=7; 4+4+3=11; 4+5+4=13; etc.

Maple

N:= 100: # for a(1)..a(N)
A067076:= [seq((ithprime(i)-3)/2, i=2..N+1)]:
a:= Vector(N):
a[1]:= 3:
for i from 2 to N do
  q:= nextprime(a[i-1]+A067076[i]+i-2);
  a[i]:= q - A067076[i]-i+1;
od:
convert(a, list); # Robert Israel, Mar 05 2020

Prog

(PARI) n=0; c=0; for(i=1, 99, t = n+c+A067076(c); if( t%2 == 1 && isprime(t), print1(n", "); c++, /*else*/ n++ )) /* M. F. Hasler, Jun 18 2010 */

Crossrefs

Cf. A067076, A169915, A175540.

Sequence in context: A378658 A270059 A120204 * A156349 A237526 A240117

Adjacent sequences: A177015 A177016 A177017 * A177019 A177020 A177021

Keyword

nonn

Author

Vincenzo Librandi, May 22 2010

Extensions

Better definition from M. F. Hasler, Jun 18 2010

Edited by N. J. A. Sloane, Jul 18 2010

Status

approved