OFFSET
1,1
COMMENTS
The corresponding primes are 3,7,3,19,7,19,13,67,83,101,61,73,...
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
a[1]=3; s[1]=3; s[n_] := s[n-1]+a[n]; a[n_]:=a[n]=Block[{m, u}, For[m = a[n-1] + 1, u = s[n-1] + m; ! PrimeQ[ u/ 2^IntegerExponent[u, 2]], m++]; m]; Array[a, 62] (* Giovanni Resta, Feb 21 2017 *)
PROG
(PARI) oddpart(n)=n>>valuation(n, 2)
first(n)=my(v=vector(n), s, m); v[1]=s=3; for(k=2, n, m=v[k-1]; while(!isprime(oddpart(m+++s)), ); s+=m; v[k]=m); v \\ Charles R Greathouse IV, Feb 22 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Feb 21 2017
EXTENSIONS
More terms from Peter J. C. Moses, Feb 21 2017
STATUS
approved