cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A064016 a(n) = Sum_{k <= 10^n} cototient(k), where cototient is A051953.

This page as a plain text file.
%I A064016 #29 Apr 18 2021 06:14:29
%S A064016 0,23,2006,196308,19607514,1960399246,196036947608,19603648572758,
%T A064016 1960364533634092,196036449326991586,19603644912113783634,
%U A064016 1960364490766613788860,196036449073440195974090,19603644907302101080472556,1960364490729905106089642146,196036449072986990521291164848
%N A064016 a(n) = Sum_{k <= 10^n} cototient(k), where cototient is A051953.
%C A064016 It appears that lim_{n->infinity} (1/n^2) * Sum_{j=1..n} a(j) = 0.1960364... = (1/2 - 3/Pi^2).
%F A064016 a(n) = 10^n*(10^n+1)/2 - A002088(10^n) = 10^n*(10^n+1)/2 - A064018(n). - _Chai Wah Wu_, Apr 18 2021
%F A064016 a(n) = A063985(10^n). - _Michel Marcus_, Apr 18 2021
%t A064016 s = 0; k = 1; Do[ While[ k <= 10^n, s = s + k - EulerPhi[ k ]; k++ ]; Print[ s ], {n, 0, 8} ]
%Y A064016 Cf. A002088, A051953, A063985, A064018.
%K A064016 nonn
%O A064016 0,2
%A A064016 _Robert G. Wilson v_, Sep 07 2001
%E A064016 a(9) from _Jud McCranie_, Jun 25 2005
%E A064016 a(10)-a(11) from _Donovan Johnson_, Feb 06 2010
%E A064016 a(12) from _Donovan Johnson_, Feb 07 2012
%E A064016 a(13)-a(15) using A064018 from _Chai Wah Wu_, Apr 18 2021