A368700 Partial sums of A368699.

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 5, 6, 6, 6, 7, 7, 7, 8, 8, 9, 9, 9, 10, 10, 10, 10, 10, 10, 11, 11, 11, 11, 11, 11, 12, 13, 13, 13, 13, 13, 13, 13, 13, 14, 14, 15, 16, 16, 17, 17, 17, 17, 17, 17, 18, 18, 19, 19, 20, 21, 22, 22, 23, 24, 25, 25, 26

Offset

0,21

Links

Antti Karttunen, Table of n, a(n) for n = 0..16384

Prog

(PARI)
up_to = 1024;
A005940(n) = { my(p=2, t=1); n--; until(!n\=2, if((n%2), (t*=p), p=nextprime(p+1))); (t); };
A354989(n) = for(m=1, oo, if((m*(m+1))%n==0, return(gcd(n, 1+m)<gcd(n, m))));
A368699(n) = A354989(A005940(1+n));
A368700list(up_to) = { my(v=vector(up_to), s=A368699(0)); for(i=1, up_to, s += A368699(i); v[i] = s); (v); };
v368700 = A368700list(up_to);
A368700(n) = if(!n, A368699(0), v368700[n]);

Crossrefs

Partial sums of A368699.

Cf. A354989, A368698.

Sequence in context: A332298 A300404 A175214 * A095395 A029134 A303997

Adjacent sequences: A368697 A368698 A368699 * A368701 A368702 A368703

Keyword

nonn

Author

Antti Karttunen, Jan 11 2024

Status

approved