|
%I #16 Sep 08 2019 02:55:58
%S 3,3,9,12,15,4,4,8,12,8,16,4,18,16,20,18,27,36,45,5,5,5,10,5,15,5,10,
%T 10,36,10,15,5,20,5,15,25,15,5,10,10,5,20,15,20,5,15,40,25,8,24,33,33,
%U 22,33,55,6,51,6,6,6,12,18,6,12,6,12,6,18,12,12,23,6,6,12,6,6,6,12,24
%N Number of times the digits are repeated in A045799.
%H Amiram Eldar, <a href="/A045810/b045810.txt">Table of n, a(n) for n = 1..10000</a>
%H N. Nomoto, <a href="http://www.geocities.co.jp/Technopolis/1793/09digit.htm">In the list of divisors of n,... </a> [Dead link]
%e 100[ 0(3),1(3) ], 10001[ 0(3),1(3) ], 10100[ 0(9),1(9) ],....
%t f[v_] := If[Length[v] == 2 && v[[1]] == v[[2]], v[[1]], 0]; a[n_] := f[(Tally @ Flatten @ Join @ IntegerDigits[Divisors[n], 2])[[;; , 2]]]; Select[a /@ Range[ 1200], # > 0 &] (* _Amiram Eldar_, Sep 08 2019 *)
%Y Cf. A038564, A038565, A045799.
%K easy,nonn,base
%O 1,1
%A _Naohiro Nomoto_
%E Offset corrected by _Amiram Eldar_, Sep 08 2019
|
