OFFSET
1,2
COMMENTS
Because A045914 is complete, this sequence is complete. - Robert G. Wilson v, Oct 30 2013
MATHEMATICA
Do[k = 1; While[ Apply[ Plus, IntegerDigits[k(k + 1)/2]] != n*Floor[ Log[10, k(k + 1)/2] + 1], k++ ]; Print[k(k + 1)/2], {n, 1, 7}]
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Robert G. Wilson v, Apr 09 2002
EXTENSIONS
a(8) from Donovan Johnson, Mar 30 2010
STATUS
approved