A361501 A variant of A359143 in which all copies of a digit d are erased only when d is both the leading digit and the final digit of (a(n) concatenated with sum of digits of a(n)).

11, 112, 1124, 11248, 1124816, 112481623, 11248162328, 1124816232838, 112481623283849, 11248162328384962, 1124816232838496270, 112481623283849627077, 2486232838496270779, 248623283849627077997, 248623283849627077997113, 248623283849627077997113118, 248623283849627077997113118128

Offset

0,1

Comments

Since we cannot list nonzero numbers with leading digit 0, we use a minus sign to represent a leading zero.

To compute a(n+1), let m denote the decimal string formed from a(n) by replacing a minus sign (if present) by a leading 0.

Let k denote the concatenation of m and its digit-sum.

If the first and last digits of k are equal, delete all copies of that digit from k.

If k has any leading zeros, replace them with a minus sign. The result is a(n+1).

A359143 eventually reaches 0, but we do not know if the present sequence will reach 0, enter a loop, or grow without limit towards +infinity or -infinity.

From Michael De Vlieger, Mar 17 2023: (Start)

First negative term is a(146).

Sequence continues beyond 2^30 terms. (End)

From Michael S. Branicky, Mar 21 2023: (Start)

The sequence enters a loop of period L = 224339586.

Specifically, a(35179968) = a(259519554) = 8863336630330333333663833080638368062852636350393323037363535737238.

In this loop, the term with the fewest digits is a(101772740) = 48623, and the term with the most digits is a(251014293), with 940 digits. (End)

Links

Michael De Vlieger, Table of n, a(n) for n = 0..10000

Example

a(11) = 112481623283849627077, which has digit-sum 91.
So k = 11248162328384962707791 both begins and ends with 1.
Erasing all the 1's from k gives a(12) = 2486232838496270779.

Mathematica

a[1] = {1, 1}; nn = 17;
Do[If[And[#2 == Last[#3], n > 2],
       Set[k, DeleteCases[#1~Join~#3, #2]],
       Set[k, #1~Join~#3]] & @@
       {#, First[#], IntegerDigits@ Total[#]} &[a[n - 1]];
  Set[a[n], k], {n, 2, nn}];
Array[(1 - 2 Boole[First[#] == 0])*FromDigits[#] &@ a[#] &, nn] (* Michael De Vlieger, Mar 17 2023 *)

Crossrefs

Cf. A359142, A359143, A361350.

Sequence in context: A019523 A359143 A361350 * A372074 A132939 A059996

Adjacent sequences: A361498 A361499 A361500 * A361502 A361503 A361504

Keyword

sign,base

Author

N. J. A. Sloane, Mar 17 2023

Status

approved