OFFSET
0,1
COMMENTS
Same function as in A083236 but initial value = 5.
FORMULA
Same implicit relationship: a(n-1)+a(n)=prime(n), the n-th prime;
It follows also that A001223(n)=a(n+1)-a(n-1).
MAPLE
A083237 := proc(n)
option remember ;
if n = 0 then
5 ;
else
ithprime(n)-procname(n-1) ;
end if;
end proc:
seq(A083237(n), n=0..100) ; # R. J. Mathar, Jun 20 2021
MATHEMATICA
RecursionLimit$=10000; f[x_] := Prime[x]-f[x-1]; f[0]=5; Table[f[w], {w, 1, 100}]
CROSSREFS
KEYWORD
sign
AUTHOR
Labos Elemer, Apr 23 2003
EXTENSIONS
a(0) preprended. - R. J. Mathar, Jun 20 2021
STATUS
approved