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
KEYWORD
easy,nonn,base
AUTHOR
EXTENSIONS
Offset corrected by Amiram Eldar, Sep 08 2019
STATUS
approved