|
|
A367349
|
|
List of numbers in the range 1 to 99 missing from A366487.
|
|
2
|
|
|
4, 10, 15, 20, 24, 30, 40, 44, 50, 60, 64, 65, 70, 80, 84, 90
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
These numbers do not occur as differences between successive terms in A121805.
|
|
LINKS
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,fini,full
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|