Revision History for A294069
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
|
|
|
#18 by Alois P. Heinz at Mon Mar 09 22:11:13 EDT 2020
|
|
|
|
#17 by Jon E. Schoenfield at Mon Mar 09 19:43:32 EDT 2020
|
|
|
|
#16 by Jon E. Schoenfield at Mon Mar 09 19:43:29 EDT 2020
|
|
|
|
#15 by Jon E. Schoenfield at Mon Mar 09 19:43:21 EDT 2020
|
| COMMENTS
|
From Robert G. Wilson v, Feb 707 2018; (: (Start)
(End).)
|
| EXAMPLE
|
The “ "0” " of 10 is strictly < “ < "1”, ", which is the largest digit of 1;
The “ "0” " of 20 is strictly < “ < "1”, ", which is the largest digit of 10;
The “ "1” " of 11 is strictly < “ < "2”, ", which is the largest digit of 20;
The “ "0” " of 30 is strictly < “ < "1”, ", which is the largest digit of 11;
The “ "2” " of 2 is strictly < “ < "3”, ", which is the largest digit of 30;
The “ "1” " of 12 is strictly < “ < "2”, ", which is the largest digit of 2; etc.
|
| STATUS
|
approved
editing
|
|
|
|
#14 by N. J. A. Sloane at Wed Feb 07 12:03:43 EST 2018
|
|
|
|
#13 by Robert G. Wilson v at Wed Feb 07 11:25:00 EST 2018
|
|
|
|
#12 by Robert G. Wilson v at Wed Feb 07 11:21:58 EST 2018
|
| COMMENTS
|
The sequence starts with a(1) = 1 and was always extended with the smallest integer not yet present and not leading to a contradiction.
From Robert G. Wilson v, Feb 7 2018; (Start)
Inverse: 1, 6, 10, 12, 14, 16, 18, 20, 2, 4, 7, 8, 9, 11, 13, 15, 17, 19, 3, ..., .
Permutation of the Integers.
(End).
|
|
|
|
#11 by Robert G. Wilson v at Wed Feb 07 11:17:28 EST 2018
|
| MATHEMATICA
|
f[s_List] := Block[{k = 1, mx = Max@IntegerDigits@s[[-1]]}, While[MemberQ[s, k] || Min@IntegerDigits@k >= mx, k++]; Append[s, k]]; Nest[f, {1}, 80] (* Robert G. Wilson v, Feb 07 2018 *)
|
| STATUS
|
proposed
editing
|
|
|
|
#10 by David A. Corneth at Wed Feb 07 10:50:45 EST 2018
|
|
|
|
#9 by David A. Corneth at Wed Feb 07 10:46:15 EST 2018
|
|
|
|
|