OFFSET
1,2
FORMULA
MATHEMATICA
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 1];
If[nsmall[[n0]] > p, nsmall[[n0]] = p]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
Module[{nn=5*10^6, tr}, tr={#, DigitCount[#, 10, 1]}&/@Accumulate[Range[ nn]]; Table[ SelectFirst[tr, #[[2]]==k&], {k, 10}]][[;; , 1]] (* The program generates the first 10 terms of the sequence. *) (* Harvey P. Dale, Sep 01 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Definition clarified by Robert Israel, Aug 10 2014
a(15)-a(16) from A048356 by Michel Marcus, Aug 12 2014
a(17)-a(18) from Giovanni Resta, Oct 30 2019
STATUS
approved