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.

A231817 Multiplicative digital root of concatenation of all divisors of n (A037278).

This page as a plain text file.
%I A231817 #12 Jul 30 2019 12:22:26
%S A231817 1,2,3,8,5,8,7,8,4,0,1,6,3,0,5,0,7,0,9,0,8,8,6,8,0,4,6,0,8,0,3,0,4,6,
%T A231817 0,0,2,8,8,0,4,0,2,0,0,6,6,0,0,0,0,0,5,0,0,0,0,0,0,0,6,4,0,0,0,0,8,0,
%U A231817 2,0,7,0,2,8,0,0,8,0,8,0,0,6,8,0,0,0,0
%N A231817 Multiplicative digital root of concatenation of all divisors of n (A037278).
%C A231817 Also multiplicative digital root of A190997 (product of digits of all the divisors of n) or A007955 (product of divisors of n).
%C A231817 Conjecture: a(n) = 0 for almost all n.
%C A231817 793 of the first 1000 terms are zeros, and 9147 out of the first 10000 terms are zeros. - _Harvey P. Dale_, Jul 30 2019
%H A231817 Harvey P. Dale, <a href="/A231817/b231817.txt">Table of n, a(n) for n = 1..1000</a>
%e A231817 For n=12: 1*2*3*4*6*1*2=288, 2*8*8=128, 1*2*8=16, 1*6=6; a(12)=6.
%t A231817 Table[NestWhile[Times@@IntegerDigits[#]&,Times@@Flatten[ IntegerDigits/@ Divisors[ n]], #>9&],{n,90}] (* _Harvey P. Dale_, Jul 30 2019 *)
%Y A231817 Cf. A037278, A007955, A190998 (associative digital root of digits of all the divisors of n), A031347 (multiplicative digital root of n).
%K A231817 nonn,base
%O A231817 1,2
%A A231817 _Jaroslav Krizek_, Nov 13 2013