Alois P. Heinz, <a href="/A139034/b139034_1.txt">Table of n, a(n) for n = 1..10000</a> (first 2000 terms from Zak Seidov)
Alois P. Heinz, <a href="/A139034/b139034_1.txt">Table of n, a(n) for n = 1..10000</a> (first 2000 terms from Zak Seidov)
proposed
approved
editing
proposed
a(n) = Sum_{i=1..n+1} A139033(i). - Alois P. Heinz, Jan 27 2023
Zak Seidov, Alois P. Heinz, <a href="/A139034/b139034_1.txt">Table of n, a(n) for n = 1..10000</a> (first 2000.</a> terms from Zak Seidov)
s:= proc(n) option remember; `if`(n<1, 0, b(n)^2+s(n-1)) end:
b:= proc(n) option remember; local k, m;
k:= s(n-1); for m from 1+b(n-1)
while not isprime(k+m^2) do od; m
end: b(1):=1:
a:= n-> s(n+1):
seq(a(n), n=1..34); # Alois P. Heinz, Jan 27 2023
Prime numbers appearing in A139033. ?
5, 41, 581, 1301, 1769, 2309, 4361, 6089, 15881, 19049, 20741, 26249, 44105, 69701, 76181, 82949, 86441, 112901, 152105, 176405, 213449, 248009, 254021, 260105, 285161, 291605, 324905, 381929, 396905, 412169, 435605, 476105, 492809, 553541617, 1913, 3677, 5981, 10337, 16421, 32297, 51341, 72077, 98321, 142421, 212117, 288293, 371237, 457673, 570569, 722669, 899069, 1112513, 1360517, 1614533, 1874633, 2159789, 2451389, 2776289, 3158213, 3555113, 3967277, 4402877, 4878977, 5371781, 5925317
Terms corrected by Alois P. Heinz, Jan 27 2023
Prime numbers appearing in A139033. ?
approved
editing
_Zak Seidov (zakseidov(AT)yahoo.com), _, Apr 07 2008