login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A267320 Smallest m such that A267238(m) = n. 0
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 (list; graph; refs; listen; history; text; internal format)
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: A066795 A079366 A226110 * A262369 A092260 A040120

Adjacent sequences:  A267317 A267318 A267319 * A267321 A267322 A267323

KEYWORD

base,easy,nonn

AUTHOR

Ivan N. Ianakiev, Jan 13 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 25 22:27 EST 2018. Contains 299662 sequences. (Running on oeis4.)