|
%I #10 Jan 14 2024 20:35:10
%S 8,80,781,7752,77275,772088,7718342,77161311
%N Number of terms of A368904 less than 10^n, where A368904 gives the numbers k for which there is no prime p such that p^p divides A342001(k).
%o (PARI)\\ Needs also program from A368914:
%o tp=10; s=0; for(n=1,10^10,s+=A368914(n); if(1+n==tp,print1(s,", "),if(n==tp, tp *= 10)));
%Y Cf. A003415, A342001, A359550, A368904, A368914.
%Y Cf. also A368911, A368919.
%K nonn
%O 1,1
%A _Antti Karttunen_, Jan 14 2024
|
