|
Search: id:A119417
|
|
| |
|
| 0, 46, 102, 168, 244, 330, 426, 532, 648, 774, 901, 901, 902, 904, 907, 911, 916, 922, 929, 937, 946, 957, 1023, 1099, 1185, 1281, 1387, 1503, 1629, 1765, 1902, 1902, 1904, 1907, 1911, 1916, 1922, 1929, 1937, 1946, 1956, 1968, 2044, 2130, 2226, 2332, 2448
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MAPLE
|
A055642 := proc(n) max(1, ilog10(n)+1) ; end: A007376 := proc(n) option remember ; local aprev, dOld, N ; if n <=9 then RETURN([n, n, 1]) ; else aprev := A007376(n-1) ; dOld := op(3, aprev) ; N := op(2, aprev) ; if dOld < A055642(N) then RETURN([op(-dOld-1, convert(N, base, 10)), N, dOld+1]) ; else RETURN([op(-1, convert(N+1, base, 10)), N+1, 1]) ; fi ; fi ; end: A119385 := proc(n) option remember ; local nupto, a, a007376, k ; if n =0 then RETURN([0, 0]) ; else nupto := op(2, A119385(n-1)) ; a := 0 ; for k from nupto+1 do a007376 := A007376(k) ; if op(1, a007376) > 0 then a := a+op(1, a007376) ; else RETURN([a, k]) ; fi ; od: fi ; end: A119417 := proc(n) add( op(1, A119385(k)), k=0..n) ; end: seq(A119417(n), n=0..80) ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 21 2008
|
|
CROSSREFS
|
Sequence in context: A004923 A044184 A044565 this_sequence A050961 A118620 A044233
Adjacent sequences: A119414 A119415 A119416 this_sequence A119418 A119419 A119420
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
Jorge Coveiro (jorgecoveiro(AT)yahoo.com), Jul 25 2006
|
|
EXTENSIONS
|
More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Jan 21 2008
|
|
|
Search completed in 0.002 seconds
|
