login
A044740
Numbers n such that string 2,7 occurs in the base 10 representation of n but not of n+1.
0
27, 127, 227, 279, 327, 427, 527, 627, 727, 827, 927, 1027, 1127, 1227, 1279, 1327, 1427, 1527, 1627, 1727, 1827, 1927, 2027, 2127, 2227, 2279, 2327, 2427, 2527, 2627, 2799, 2827, 2927, 3027, 3127, 3227, 3279, 3327, 3427
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {2, 7}]>0, 1, 0], {n, 4000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, May 25 2015 *)
CROSSREFS
Sequence in context: A321486 A241755 A044359 * A026917 A267935 A048615
KEYWORD
nonn,base
STATUS
approved