A048356
a(n) is the index of the smallest triangular number containing exactly n 1's.
Original entry on oeis.org
1, 18, 58, 458, 1541, 6018, 47141, 149406, 471404, 4756366, 15563541, 149075893, 149004101, 149071198, 14907133333, 47322533981, 471406654834, 1510636363333, 4714049577658, 17954448535733, 471151591552466, 1490649602094141, 4519177339165085, 15434448560354601, 47140495990478741
Offset: 1
Cf.
A036518,
A048346,
A048355,
A048357,
A048358,
A048359,
A048360,
A048361,
A048362,
A048363,
A048364,
A048531.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 1];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048358
a(n) is the index of the smallest triangular number containing exactly n 3's.
Original entry on oeis.org
2, 77, 257, 2570, 816, 25808, 163299, 812816, 2463060, 24629808, 246306030, 791999183, 812812816, 2581876578, 81649658057, 247924719918, 812812812816, 8128140492564, 25819877355763, 81708543315045, 816129320553227, 2581981926944235, 8164822512869870, 16329935292787435, 258071204644507494
Offset: 1
Cf.
A036520,
A048348,
A048355,
A048356,
A048357,
A048359,
A048360,
A048361,
A048362,
A048363,
A048364,
A048535.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 3];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048359
a(n) is the index of the smallest triangular number containing exactly n 4's.
Original entry on oeis.org
9, 94, 537, 1043, 29238, 28790, 94238, 942703, 2967970, 45748113, 170565790, 939618480, 2981759361, 29814031731, 94285146809, 298802358238, 2837045748113, 9428516473384, 29810549959517, 537482082424790, 699205897721757, 2974721655733337, 29032426496744790, 29814339990932029, 1043498506508221519
Offset: 1
Cf.
A036521,
A048349,
A048355,
A048356,
A048357,
A048358,
A048360,
A048361,
A048362,
A048363,
A048364,
A048537.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 4];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048360
a(n) is the index of the smallest triangular number containing exactly n 5's.
Original entry on oeis.org
5, 10, 105, 714, 5010, 34221, 103494, 317885, 3243010, 1054130, 55708989, 280555005, 1051237885, 5206833885, 30184681729, 105409283410, 1053999578610, 1005540238434, 8894447217885, 178132285431643, 717642746162114, 3273082806882696, 10445626412576275, 33332433321191885, 105428230332824189
Offset: 1
Cf.
A036522,
A048350,
A048355,
A048356,
A048357,
A048358,
A048359,
A048361,
A048362,
A048363,
A048364,
A048539.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 5];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048361
a(n) is the index of the smallest triangular number containing exactly n 6's.
Original entry on oeis.org
3, 11, 36, 363, 3366, 8563, 35963, 394123, 3055048, 11531588, 115464831, 115470036, 1154484036, 10645763163, 35401884036, 152754484036, 365148371588, 2292012515963, 33065591380305, 115470003521836, 642442319075676, 1154701378423588, 10996978373724908, 36347397889274188, 230810167309875091
Offset: 1
Cf.
A036523,
A048351,
A048355,
A048356,
A048357,
A048358,
A048359,
A048360,
A048362,
A048363,
A048364,
A048541.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 6];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048362
a(n) is the index of the smallest triangular number containing exactly n 7's.
Original entry on oeis.org
12, 59, 381, 3684, 8692, 70381, 122292, 3762381, 7453707, 18856074, 124721736, 587838545, 3996943276, 18845571218, 27483805332, 394393554074, 1246890354231, 11642661866667, 88292437929618, 184774336842416, 1158255177391940, 5962836170393707, 37870196138329618, 59623111421253050, 107479087154457892
Offset: 1
Cf.
A036524,
A048352,
A048355,
A048356,
A048357,
A048358,
A048359,
A048360,
A048361,
A048363,
A048364,
A048543.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 7];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048363
a(n) is the index of the smallest triangular number containing exactly n 8's.
Original entry on oeis.org
7, 87, 312, 1287, 10572, 81103, 397212, 881912, 5270652, 7601169, 134021535, 421518419, 1402775027, 4204494972, 42305694389, 397212509427, 1943649189427, 6130065071251, 76024844477168, 98844816642745, 1333325833012312, 6069248534849827, 13303299356842428, 191199837283345112, 1084811955030810572
Offset: 1
Cf.
A036525,
A048353,
A048355,
A048356,
A048357,
A048358,
A048359,
A048360,
A048361,
A048362,
A048364,
A048545.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 8];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A048364
a(n) is the index of the smallest triangular number containing exactly n 9's.
Original entry on oeis.org
13, 44, 631, 1413, 28282, 76419, 282842, 1414213, 4471955, 31616419, 446313656, 1414001413, 6276925986, 44710913656, 44721356419, 632129732586, 527257052109, 14141923468538, 44698881216419, 199449241362306, 141421356237309, 4690415742340969, 42426404749855955, 44703449755024186, 1095435073375871053
Offset: 1
Cf.
A036526,
A048354,
A048355,
A048356,
A048357,
A048358,
A048359,
A048360,
A048361,
A048362,
A048363,
A048547.
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 9];
If[nsmall[[n0]] > i, nsmall[[n0]] = i]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
A036519
Smallest triangular number containing exactly n 2's.
Original entry on oeis.org
21, 1225, 23220, 212226, 22121226, 2202322528, 21222223210, 202222242820, 22122952222920, 229222922294226, 2221228522222920, 222322222025202925, 222212284222222920, 22222122841222222920, 2092226022222222442221, 22222222042522220020225, 622222207421222222222253, 22222212062122272422225226
Offset: 1
-
nsmall = Table[Infinity, 20];
For[i = 0, i <= 10^6, i++, p = PolygonalNumber[i];
n0 = Count[IntegerDigits[p], 2];
If[nsmall[[n0]] > p, nsmall[[n0]] = p]];
ReplaceAll[nsmall, Infinity -> "?"] (* Robert Price, Mar 22 2020 *)
Showing 1-9 of 9 results.