OFFSET
1,2
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10001
FORMULA
a(n) = (-1)^n + A045344(n). - Michel Marcus, Feb 07 2019
MAPLE
A045344 := proc(n) if n = 1 then 2; else ithprime(n+1) ; end if; end proc:
seq(A176569(n), n=1..120) ; # R. J. Mathar, Apr 27 2010
MATHEMATICA
Total /@ Nest[Append[#1, Block[{p = NextPrime@ #1[[-1, -1]]}, While[Mod[p, 3] == 0, p = NextPrime@ p]; {(-1)^#2, p}]] & @@ {#, Length@ # + 1} &, {{-1, 2}}, 57] (* Michael De Vlieger, Feb 09 2019 *)
PROG
(PARI) a045344(n) = if(n<2, 2, prime(n+1));
a(n) = (-1)^n + a045344(n); \\ Michel Marcus, Feb 07 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 20 2010
EXTENSIONS
Corrected (double-5 replaced by double-6, 146 removed) by R. J. Mathar, Apr 27 2010
STATUS
approved