OFFSET
1,1
COMMENTS
LINKS
Michel Marcus, Table of n, a(n) for n = 1..1274
Didier Müller, Somme des premiers entiers inversés, Défi Turing (in French).
EXAMPLE
For m=10, 1+2+3+4+5+6+7+8+9+10 is > 1+2+3+4+5+6+7+8+9+01, so 10 is a term.
MATHEMATICA
lim = 931; t = Rest@ Accumulate[Range[0, lim]]; s = Accumulate[Table[FromDigits[Reverse[IntegerDigits@ n]], {n, 1, lim + 1}]]; Select[Range@ lim, t[[#]] > s[[#]] &] (* Michael De Vlieger, Sep 15 2015, after Harvey P. Dale at A000217 and Enrique Pérez Herrero at A062918 *)
PROG
(PARI) isok(n) = n*(n+1)/2 - sum(k=1, n, eval(concat(Vecrev(Str(k))))) > 0;
(Magma) [m: m in [0..10^3] | m*(m+1)/2 gt &+[Seqint(Reverse(Intseq(i))): i in [0..m]]]; // Bruno Berselli, Sep 16 2015
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Sep 15 2015
STATUS
approved