OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MAPLE
A094222 := proc(n)
option remember;
if n <= 2 then
n;
else
procname(n-1)+A001221(procname(n-1)) ;
end if;
end proc:
seq(A094222(n), n=1..30) ; # R. J. Mathar, Jul 09 2016
MATHEMATICA
a[1] = 1; a[2] = 2; a[n_] := a[n] = a[n-1] + PrimeNu[a[n-1]]; Array[a, 66] (* Jean-François Alcover, Sep 13 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, May 28 2004
STATUS
approved