1,2

dig := X->convert((convert(X, base, 10)), `+`); T := k->k*(k+1)/2; S := k->seq(dig(T(i)), i=1..k-1); seq(`if`(dig(T(i))>max(S(i)), i, printf("")), i=1..600);

Cf. A068808.

Sequence in context: A118203 A064956 A110449 this_sequence A114600 A088905 A045319

Adjacent sequences: A067988 A067989 A067990 this_sequence A067992 A067993 A067994

nonn

Francois Jooste (phukraut(AT)hotmail.com), Mar 10 2002