The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A367338 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
newer changes | Showing entries 11-20 | older changes

A367338

Comma-successor to n: second term of commas sequence if initial term is n, or -1 if there is no second term.
(history; published version)

#65 by N. J. A. Sloane at Wed Dec 20 09:50:02 EST 2023

STATUS

proposed

approved

#64 by Jon E. Schoenfield at Mon Dec 18 20:37:18 EST 2023

STATUS

editing

proposed

Discussion

Mon Dec 18

20:37

Jon E. Schoenfield: Okay like this?

Wed Dec 20

09:50

N. J. A. Sloane: no, i prefer my version!

#63 by Jon E. Schoenfield at Mon Dec 18 20:37:15 EST 2023

COMMENTS

Note that in base b = 2, no values of x satisying (*) exist, and the theorem asserts that D(2) is empty. In fact it is easy to check directly that every commas sequence in base 2 is infinite. If the initial term is 0 or 1 (mod 4 ) then the sequence will merge with A042948, and if the initial term is 2 or 3 mod 4 then ; otherwise the sequence will merge with A042964.

LINKS

N. J. A. Sloane, <a href="/A367341/a367341_1.txt">The comma-successor theorem.</a>.

STATUS

proposed

editing

#62 by Robert P. P. McKone at Mon Dec 18 17:35:11 EST 2023

STATUS

editing

proposed

#61 by Robert P. P. McKone at Mon Dec 18 17:34:38 EST 2023

MATHEMATICA

a[n_] := a[n] = Module[{l = n, y = 1, d}, While[y < 10, l = l + 10*(Mod[l, 10]); y = 1; While[y < 10, d = IntegerDigits[l + y][[1]]; If[d == y, l = l + y; Break[]; ]; y++; ]; If[y < 10, Return[l]]; ]; Return[-1]; ];

Table[a[n], {n, 1, 65}] (* Robert P. P. McKone, Dec 18 2023 *)

STATUS

approved

editing

#60 by Amiram Eldar at Mon Dec 18 12:59:42 EST 2023

STATUS

reviewed

approved

#59 by Joerg Arndt at Mon Dec 18 12:48:20 EST 2023

STATUS

proposed

reviewed

#58 by Michel Marcus at Mon Dec 18 12:47:33 EST 2023

STATUS

editing

proposed

#57 by Michel Marcus at Mon Dec 18 12:47:30 EST 2023

COMMENTS

Comment from N. J. A. Sloane, Nov 19 2023 : (Start)

STATUS

approved

editing

#56 by N. J. A. Sloane at Sun Dec 17 09:43:51 EST 2023

STATUS

editing

approved