OFFSET
1,2
LINKS
MATHEMATICA
nxt[{n_, a_}]:={n+1, a^2+Prime[n]}; NestList[nxt, {1, 1}, 9][[All, 2]] (* Harvey P. Dale, Aug 02 2017 *)
PROG
(Magma) [n le 1 select 1 else Self(n-1)^2 + NthPrime(n-1): n in [1..14]]; // G. C. Greubel, Jan 04 2024
(SageMath)
def a(n): return 1 if n==1 else a(n-1)^2 + nth_prime(n-1) # a = A028301
[a(n) for n in range(1, 15)] # G. C. Greubel, Jan 04 2024
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
A.R. Fink (fink(AT)cadvision.com)
STATUS
approved