OFFSET
1,2
LINKS
Michel Marcus and Giovanni Resta, Table of n, a(n) for n = 1..10000 (first 59 terms from Michel Marcus)
EXAMPLE
20 is a term since 0/1 + 2/2 = 1.
2010 is a term since 0/1 + 1/2 + 0/3 + 2/4 = 1.
MATHEMATICA
ndig[n_] := Sort[Sum[e[[2]] 10^(1/e[[1]] - 1), {e, #}] & /@ Select[Tally /@ (Join[ {1/n}, #] & /@ IntegerPartitions[1 - 1/n, All, 1/Range[n]]), Max[Flatten[#]] < 10 &]]; Join @@ (ndig /@ Range[20]) (* Giovanni Resta, Aug 21 2017 *)
PROG
(PARI) isok(n) = my(d = Vecrev(digits(n))); sum(k=1, #d, d[k]/k) == 1;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Aug 21 2017
STATUS
approved