login
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, 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
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
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