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

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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