A308002 -id:A308002 - cp's OEIS frontend

A171797 A modified Sisyphus function: a(n) = concatenation of (number of digits in n) (number of even digits) (number of odd digits).

110, 101, 110, 101, 110, 101, 110, 101, 110, 101, 211, 202, 211, 202, 211, 202, 211, 202, 211, 202, 220, 211, 220, 211, 220, 211, 220, 211, 220, 211, 211, 202, 211, 202, 211, 202, 211, 202, 211, 202, 220, 211, 220, 211, 220, 211, 220, 211, 220, 211, 211, 202

Offset: 0

N. J. A. Sloane, Oct 15 2010

Start with n, repeatedly apply the map i -> a(i). Then every number converges to 312. - Eric Angelini and Alexandre Wajnberg, Oct 15 2010

			11 has 2 digits, both odd, so a(11) = 202.
12 has 2 digits, one even and one odd, so a(12)=211. Then a(211) = 312.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Reinhard Zumkeller, Table of n, a(n) for n = 0..25000

Cf. A073053 (Sisyphus), A171798, A171813, A055642, A196563, A196564, A308002, A308003 (another version).

A100961 gives steps to reach 312.

a171797 n = read $ concatMap (show . ($ n))
                   [a055642, a196563, a196564] :: Integer
-- Reinhard Zumkeller, Feb 22 2012, Oct 15 2010

nevenDgs := proc(n) local a, d; a := 0 ; for d in convert(n,base,10) do if type(d,'even') then a :=a +1 ; end if; end do; a ; end proc:
cat2 := proc(a,b) local ndigsb; ndigsb := max(ilog10(b)+1,1) ; a*10^ndigsb+b ; end:
catL := proc(L) local a, i; a := op(1,L) ; for i from 2 to nops(L) do a := cat2(a,op(i,L)) ; end do; a; end proc:
A055642 := proc(n) max(1,ilog10(n)+1) ; end proc:
A171797 := proc(n) local n1,n2 ; n1 := A055642(n) ; n2 := nevenDgs(n) ; catL([n1,n2,n1-n2]) ; end proc:
seq(A171797(n),n=1..80) ; # R. J. Mathar, Oct 15 2010 and Oct 18 2010

def a(n):
    s = str(n); e = sum(d in "02468" for d in s)
    return int("".join(map(str, (len(s), e, len(s)-e))))
print([a(n) for n in range(52)]) # Michael S. Branicky, Jun 15 2021

More terms from R. J. Mathar, Oct 15 2010

a(0) added by N. J. A. Sloane, May 12 2019

A100961 For a decimal string s, let f(s) = decimal string ijk, where i = number of even digits in s, j = number of odd digits in s, k=i+j (see A171797). Start with s = decimal expansion of n; a(n) = number of applications of f needed to reach the string 123.

Original entry on oeis.org

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 2, 3, 2, 3, 2, 3, 2, 3, 2, 3, 2, 1, 2, 1, 2

Offset: 0

N. J. A. Sloane, Jun 17 2005

Obviously if the digits of m and n have the same parity then a(m) = a(n). E.g. a(334) = a(110). In other words, a(n) = a(A065031(n)).

It is easy to show that (i) the trajectory of every number under f eventually reaches 123 (if s has more than three digits then f(s) has fewer digits than s) and (ii) since each string ijk has only finitely many preimages, a(n) is unbounded.

			n=0: s=0 -> f(s) = 101 -> f(f(s)) = 123, stop, a(0) = 2.
n=1: s=1 => f(s) = 011 -> f(f(s)) = 123, stop, f(1) = 2.

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

A073054 gives another version. f(n) is (essentially) A171797 or A073053.

Cf. A065031, A308002.

More terms from Zak Seidov, Jun 18 2005

A308003 A modified Sisyphus function: a(n) = concatenation of (number of even digits in n) (number of digits in n) (number of odd digits in n).

Original entry on oeis.org

110, 11, 110, 11, 110, 11, 110, 11, 110, 11, 121, 22, 121, 22, 121, 22, 121, 22, 121, 22, 220, 121, 220, 121, 220, 121, 220, 121, 220, 121, 121, 22, 121, 22, 121, 22, 121, 22, 121, 22, 220, 121, 220, 121, 220, 121, 220, 121, 220, 121, 121, 22, 121, 22, 121

Offset: 0

N. J. A. Sloane, May 12 2019

If we start with n and repeatedly apply the map i -> a(i), we eventually reach 132 (see A073054).

			11 has 2 digits, both odd, so a(11)=22 (leading zeros are omitted).
12 has 2 digits, one even and one odd, so a(12)=121. Then a(121) = 132.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

N. J. A. Sloane, Table of n, a(n) for n = 0..28000

Cf. A073053 (Sisyphus), A171797, A171798, A171813, A055642, A196563, A196564, A308002.

A073054 gives steps to reach 132.

# Maple code based on R. J. Mathar's code for A171797:
nevenDgs := proc(n) local a, d; a := 0 ; for d in convert(n,base,10) do if type(d,'even') then a :=a +1 ; end if; end do; a ; end proc:
cat2 := proc(a,b) local ndigsb; ndigsb := max(ilog10(b)+1,1) ; a*10^ndigsb+b ; end:
catL := proc(L) local a, i; a := op(1,L) ; for i from 2 to nops(L) do a := cat2(a,op(i,L)) ; end do; a; end proc:
A055642 := proc(n) max(1,ilog10(n)+1) ; end proc:
A308003 := proc(n) local n1,n2 ; n1 := A055642(n) ; n2 := nevenDgs(n) ; catL([n2,n1,n1-n2]) ; end proc:
seq(A308003(n),n=0..80) ;

def a(n):
    s = str(n)
    e = sum(1 for c in s if c in "02468")
    return int(str(e) + str(len(s)) + str(len(s)-e))
print([a(n) for n in range(55)]) # Michael S. Branicky, Mar 29 2022

A350709 Modified Sisyphus function of order 3: a(n) is the concatenation of (number of digits of n)(number digits of n congruent to 0 modulo 3)(number of digits of n congruent to 1 modulo 3)(number of digits of n congruent to 2 modulo 3).

Original entry on oeis.org

1100, 1010, 1001, 1100, 1010, 1001, 1100, 1010, 1001, 1100, 2110, 2020, 2011, 2110, 2020, 2011, 2110, 2020, 2011, 2110, 2101, 2011, 2002, 2101, 2011, 2002, 2101, 2011, 2002, 2101, 2200, 2110, 2101, 2200, 2110, 2101, 2200

Offset: 0

Matthew E. Coppenbarger, Mar 28 2022

If we start with n and repeatedly apply the map i -> a(i), we eventually get the cycle {4031, 4112, 4220}

			11 has two digits, both congruent to 1 modulo 3, so a(11) = 2020.
a(20) = 2101.
a(30) = 2200.
a(1111123567) = 10262.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Cf. A073053 (Sisyphus), A171797, A171798, A171813, A055642, A196563, A196564, A308002.

def a(n):
    d, m = list(map(int, str(n))), [0, 0, 0]
    for di in d: m[di%3] += 1
    return int(str(len(d)) + "".join(map(str, m)))
print([a(n) for n in range(37)]) # Michael S. Branicky, Mar 28 2022

A308005 A modified Sisyphus function: a(n) = concatenation of (number of odd digits in n) (number of digits in n) (number of even digits in n).

Original entry on oeis.org

11, 110, 11, 110, 11, 110, 11, 110, 11, 110, 121, 220, 121, 220, 121, 220, 121, 220, 121, 220, 22, 121, 22, 121, 22, 121, 22, 121, 22, 121, 121, 220, 121, 220, 121, 220, 121, 220, 121, 220, 22, 121, 22, 121, 22, 121, 22, 121, 22, 121, 121, 220, 121, 220, 121, 220, 121, 220, 121, 220, 22, 121, 22, 121, 22

Offset: 0

N. J. A. Sloane, May 12 2019

If we start with n and repeatedly apply the map i -> a(i), it appears that we eventually reach one of the two fixed points 22 or 231, or enter the two-cycle (33, 220). Are there any other possibilities? This is in contrast to the behavior of the closely related A308003.

			11 has 2 digits, both odd, so a(11)=220.
12 has 2 digits, one even and one odd, so a(12)=121. Then a(121) = 231, a fixed point.
22 has two digits, both even, so 22 -> 22, another fixed point  (leading zeros are omitted).

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Robert Israel, Table of n, a(n) for n = 0..10000

Cf. A073053 (Sisyphus), A171797, A171798, A171813, A055642, A196563, A196564, A308002, A308003.

Maple code based on R. J. Mathar's code for A171797:
nevenDgs := proc(n) local a, d; a := 0 ; for d in convert(n, base, 10) do if type(d, 'even') then a :=a +1 ; end if; end do; a ; end proc:
cat2 := proc(a, b) local ndigsb; ndigsb := max(ilog10(b)+1, 1) ; a*10^ndigsb+b ; end:
catL := proc(L) local a, i; a := op(1, L) ; for i from 2 to nops(L) do a := cat2(a, op(i, L)) ; end do; a; end proc:
A055642 := proc(n) max(1, ilog10(n)+1) ; end proc:
A308005 := proc(n) local n1, n2 ; n1 := A055642(n) ; n2 := nevenDgs(n) ; catL([n1-n2, n1, n2]) ; end proc:
[seq(A308005(n), n=0..80)];

A375208 Modified Sisyphus function of order 5.

Original entry on oeis.org

110000, 101000, 100100, 100010, 100001, 110000, 101000, 100100, 100010, 100001, 211000, 202000, 201100, 201010, 201001, 211000, 202000, 201100, 201010, 201001, 210100, 201100, 200200, 200110, 200101, 210100, 201100, 200200, 200110, 200101, 210010, 201010, 200110, 200020, 200011, 210010, 201010, 200110, 200020, 200011, 210001, 201001, 200101, 200011, 200002

Offset: 0

Matt Coppenbarger, Oct 16 2024

a(n) is the concatenation of the number of digits in n with number of digits of n congruent to k modulo 5 for each k from 0 to 4 in turn. See Example.

If we start with n and repeatedly apply the map i -> a(i), we eventually get the cycle {613200, 622110}.

			11 has two digits, both congruent to 1 modulo 5, so a(11) = 202000.
a(20) = 210100.
a(30) = 210010.
a(2527200000) = 1060400.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Cf. A073053 (Sisyphus), A171797, A171798, A171813, A055642, A196563, A196564, A308002, A350709.

a:= n-> (l-> parse(cat(nops(l), seq(add(`if`(irem(i, 5)=k
          , 1, 0), i=l), k=0..4))))(convert(n, base, 10)):
seq(a(n), n=0..44);  # Alois P. Heinz, Oct 23 2024

# based on Michael S. Branicky in A350709
def a(n, order=5):
    d, m = list(map(int, str(n))), [0]*order
    for di in d: m[di%order] += 1
    return int(str(len(d)) + "".join(map(str, m)))
print([a(n) for n in range(37)])

from collections import Counter
def A375208(n):
    s = str(n)
    c = Counter(int(d)%5 for d in s)
    return int(str(len(s))+''.join(str(c[i]) for i in range(5))) # Chai Wah Wu, Nov 26 2024

A352751 Modified Sisyphus function of order 4: a(n) is the concatenation of (number of digits of n)(number digits of n congruent to 0 modulo 4)(number of digits of n congruent to 1 modulo 4)(number of digits of n congruent to 2 modulo 4)(number of digits of n congruent to 3 modulo 4).

Original entry on oeis.org

11000, 10100, 10010, 10001, 11000, 10100, 10010, 10001, 11000, 10100, 21100, 20200, 20110, 20101, 21100, 20200, 20110, 20101, 21100, 20200, 21010, 20110, 20020, 20011, 21010, 20110, 20020, 20011, 21010, 20110, 21001, 20101, 20011, 20002, 21001, 20101, 20011, 20002, 21001, 20101, 22000, 21100, 21010

Offset: 0

Matthew E. Coppenbarger, Apr 01 2022

If we start with n and repeatedly apply the map i -> a(i), we eventually get one of three cycles: {51220}, {50410, 52111, 53200}, or {51301}

			11 has two digits, both congruent to 1 modulo 4, so a(11) = 20200.
a(20) = 21010.
a(30) = 21001.
a(1111123567) = 100622.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Cf. A073053 (Sisyphus), A171797, A171798, A171813, A055642, A196563, A196564, A308002, A350709.

def a(n, order=4):
    d, m = list(map(int, str(n))), [0]*order
    for di in d: m[di%order] += 1
    return int(str(len(d)) + "".join(map(str, m)))
print([a(n) for n in range(37)]) # Michael S. Branicky, Apr 01 2022

A383931 Minimal nonnegative integer which reaches a cycle after exactly n iterations of the modified Sisyphus function of order 5 (A375208).

Original entry on oeis.org

613200, 100123, 100012, 10, 1023, 100, 0, 10234, 10000123, 10000000000002

Offset: 0

Matt Coppenbarger, May 15 2025

The sole cycle is C = {613200,622110} and iteration stops on reaching either element of this cycle.

The next term is 145 digits a(10) = decimal 1 0^(101) 1^(10) 2^(11) 3^(11) 4^(11) where ^ denotes repetition of a digit.

			For n=6, a(6) = 0 takes 6 iterations to reach C: 0 -> 110000 -> 642000 -> 631101 -> 614010 -> 632001 -> 6221100.

J. Schram, The Sisyphus string, J. Recreational Math., 19 (1987), 43-44.

M. E. Coppenbarger, Iterations of a modified Sisyphus function, Fib. Q., 56 (No. 2, 2018), 130-141.

Cf. A375208 (Sisyphus 5 function).

Cf. A308002, A352752.

cp's OEIS Frontend

A171797 A modified Sisyphus function: a(n) = concatenation of (number of digits in n) (number of even digits) (number of odd digits).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Haskell

Maple

Python

Extensions

A100961 For a decimal string s, let f(s) = decimal string ijk, where i = number of even digits in s, j = number of odd digits in s, k=i+j (see A171797). Start with s = decimal expansion of n; a(n) = number of applications of f needed to reach the string 123.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Extensions

A308003 A modified Sisyphus function: a(n) = concatenation of (number of even digits in n) (number of digits in n) (number of odd digits in n).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

Python

A350709 Modified Sisyphus function of order 3: a(n) is the concatenation of (number of digits of n)(number digits of n congruent to 0 modulo 3)(number of digits of n congruent to 1 modulo 3)(number of digits of n congruent to 2 modulo 3).

Views

Author

Keywords

Comments

Examples

References

Crossrefs

Programs

Python

A308005 A modified Sisyphus function: a(n) = concatenation of (number of odd digits in n) (number of digits in n) (number of even digits in n).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Maple

A375208 Modified Sisyphus function of order 5.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Python

Python

A352751 Modified Sisyphus function of order 4: a(n) is the concatenation of (number of digits of n)(number digits of n congruent to 0 modulo 4)(number of digits of n congruent to 1 modulo 4)(number of digits of n congruent to 2 modulo 4)(number of digits of n congruent to 3 modulo 4).

Views

Author

Keywords

Comments

Examples

References

Crossrefs

Programs

Python

A383931 Minimal nonnegative integer which reaches a cycle after exactly n iterations of the modified Sisyphus function of order 5 (A375208).