

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

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


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

Cf. A038564, A038565, A045799.
Sequence in context: A173048 A165992 A117153 * A166720 A325243 A319271
Adjacent sequences: A045807 A045808 A045809 * A045811 A045812 A045813


KEYWORD

easy,nonn,base


AUTHOR

Naohiro Nomoto


EXTENSIONS

Offset corrected by Amiram Eldar, Sep 08 2019


STATUS

approved



