login
A367615
Numbers that have a comma-successor.
1
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 46, 47, 48, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75
OFFSET
1,2
COMMENTS
This is the complement to A367341.
The actual successors are given in A367340.
See A367338 for definition.
LINKS
Eric Angelini, Michael S. Branicky, Giovanni Resta, N. J. A. Sloane, and David W. Wilson, The Comma Sequence: A Simple Sequence With Bizarre Properties, arXiv:2401.14346, Youtube
MATHEMATICA
fQ[n_]:=Module[{k=n+10*Last[IntegerDigits[n]]+Range[9]}, Select[k, #-n==FromDigits[{Last[IntegerDigits[n]], First[IntegerDigits[#]]}]&]]!={};
Select[Range[75], fQ[#]&] (* Ivan N. Ianakiev, Dec 18 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 18 2023
EXTENSIONS
More terms from Michael S. Branicky, Dec 18 2023
STATUS
approved