A045810 Number of times the digits are repeated in A045799.

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, 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, 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

Offset: 1

Author

Naohiro Nomoto

Keywords

• easy
• nonn
• base

Examples

			100[ 0(3),1(3) ], 10001[ 0(3),1(3) ], 10100[ 0(9),1(9) ],....
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• N. Nomoto, In the list of divisors of n,... [Dead link]

Crossrefs

Cf. A038564, A038565, A045799.

Programs

Mathematica

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 *)

Extensions

Offset corrected by Amiram Eldar, Sep 08 2019