OFFSET
0,2
LINKS
P. L. Patodia, Seth Troisi and Hiroaki Yamanouchi,Table of n, a(n) for n = 0..36(terms a(0)-a(18) by P. L. Patodia and a(19)-a(24) by Seth Troisi)
Leonhard Euler,Découverte d'une loi tout extraordinaire des nombres par rapport à la somme de leurs diviseurs,1747, The Euler Archive, (Eneström Index) E175.
P. L. Patodia (pannalal(AT)usa.net),PARI program for A072692 and A024916
FORMULA
EXAMPLE
PROG
(PARI) for(m=0, 10, print1(sum(n=1, k=10^m, n*(k\n)), "," )) \\ Improved byM. F. Hasler,Apr 18 2015
(Python) [(i, sum([d*(10**i//d) for d in range(1, 10**i+1)])) for i in range(8)] #Seth A. Troisi,Jun 27 2010
(Python)
from math import isqrt
defA072692(n): return -(s:=isqrt(m:=10**n))**2*(s+1)+sum((q:=m//k)*((k<<1)+q+1) for k in range(1, s+1))>>1 #Chai Wah Wu,Oct 23 2023
(PARI)A072692(n)=A024916(10^n) \\ This is very efficient, using efficient code ofA024916.-M. F. Hasler,Apr 18 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Rick L. Shepherd,Jul 02 2002
EXTENSIONS
More terms from P L Patodia (pannalal(AT)usa.net), Jan 11 2008, Jun 25 2008
STATUS
approved