A267320 Smallest m such that A267238(m) = n.

0, 1, 11, 2, 12, 112, 3, 13, 113, 23, 4, 14, 33, 24, 124, 5, 15, 115, 25, 125, 44, 6, 16, 116, 26, 45, 145, 36, 7, 17, 55, 27, 127, 255, 37, 137, 8, 18, 47, 28, 128, 247, 38, 57, 157, 9, 19, 119, 29, 67, 167, 39, 139, 457, 239, 49, 77, 68, 168, 277, 59, 159, 377, 259, 78, 178, 69, 169, 1169

Offset

0,3

Links

Table of n, a(n) for n=0..68.

Mathematica

seq={0}; f[n_]:=Total[IntegerDigits[n]*(IntegerDigits[n]+1)/2]; lst=f/@Range[10^5];
Do[AppendTo[seq, First[Position[lst, m]]], {m, 1, 100}]; seq//Flatten

Prog

(PARI) strd(n) = {my(d = digits(n)); sum(k=1, #d, d[k]*(d[k]+1)/2); }
a(n) = {m = 0; while(strd(m) != n, m++); m; } \\ Michel Marcus, Jan 13 2016

Crossrefs

Cf. A267238.

Sequence in context: A338191 A360227 A318927 * A303785 A262369 A092260

Adjacent sequences: A267317 A267318 A267319 * A267321 A267322 A267323

Keyword

base,easy,nonn

Author

Ivan N. Ianakiev, Jan 13 2016

Status

approved