|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|