login
A045810
Number of times the digits are repeated in A045799.
2
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,1
LINKS
EXAMPLE
100[ 0(3),1(3) ], 10001[ 0(3),1(3) ], 10100[ 0(9),1(9) ],....
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 *)
CROSSREFS
KEYWORD
easy,nonn,base
EXTENSIONS
Offset corrected by Amiram Eldar, Sep 08 2019
STATUS
approved