The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A071980 If n = abcd (say) in decimal, then a(n) = a + ab + abc + abcd + bcd + cd + d. 4
 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 44, 46, 48, 50, 52, 54, 56, 58, 60, 62, 55, 57, 59, 61, 63, 65, 67, 69, 71, 73, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 77, 79 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,3 LINKS Zak Seidov, Table of n, a(n) for n = 0..10000 EXAMPLE a(1347) = 1 + 13 + 134 + 1347 + 347 + 47 + 7 = 1896. MAPLE read("transforms"): A071980 := proc(n)     local a, dgs, d ;     a := n ;     dgs := convert(n, base, 10) ;     for d from 1 to nops(dgs) do         [op(d+1..nops(dgs), dgs)] ;         a := a+digcatL(%) ;         [op(1..nops(dgs)-d, dgs)] ;         a := a+digcatL(%) ;     end do:     a ; end proc: # R. J. Mathar, May 06 2019 MATHEMATICA f[n_] := Block[{lead = IntegerDigits[n], trail = IntegerDigits[n], flr = Floor[Log[10, n] + 1], s = -n}, While[flr > 0, s = s + FromDigits[lead] + FromDigits[trail]; lead = Drop[lead, -1]; trail = Drop[trail, 1]; flr--]; s]; Table[f[n], {n, 0, 80}] Table[n+Sum[Quotient[n, 10^k]+Mod[n, 10^k], {k, 1, Log[10, n]}], {n, 0, 100}](* Zak Seidov, May 16 2013 *) PROG (PARI) a(n)=local(l); if(n<1, 0, l=1+log(n)\log(10); sum(i=1, l-1, n\10^i+n%(10^i), n)) CROSSREFS Cf. A225580. - Zak Seidov, May 16 2013 Sequence in context: A298297 A331009 A225580 * A058183 A322341 A080676 Adjacent sequences:  A071977 A071978 A071979 * A071981 A071982 A071983 KEYWORD base,nonn AUTHOR Amarnath Murthy, Jun 18 2002 EXTENSIONS Edited by Robert G. Wilson v, Jun 23 2002 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 20 05:31 EDT 2021. Contains 343121 sequences. (Running on oeis4.)