A367349 List of numbers in the range 1 to 99 missing from A366487.

4, 10, 15, 20, 24, 30, 40, 44, 50, 60, 64, 65, 70, 80, 84, 90

Offset: 1

Author

N. J. A. Sloane, Nov 17 2023

Keywords

• nonn
• base
• fini
• full

Comments

These numbers do not occur as differences between successive terms in A121805.

Links

• Carlos Rivera, Puzzle 980. The "Commas" sequence, The Prime Puzzles and Problems Connection.

Crossrefs

Cf. A121805, A366487.

Programs

Mathematica

a[1] = 1; a[n_] := a[n] = For[r = Mod[a[n - 1], 10]; y = 0, y <= 9, y++, If[y == IntegerDigits[#][[1]], Return[#]] &[a[n - 1] + 10 r + y]]; Complement[Range[99], Union@ Differences@ Array[a, 10^6]] (* Michael De Vlieger, Nov 18 2023, after Jean-François Alcover at A121805 *)