A044699 Numbers n such that string 7,4 occurs in the base 9 representation of n but not of n+1.

67, 148, 229, 310, 391, 472, 553, 611, 634, 715, 796, 877, 958, 1039, 1120, 1201, 1282, 1340, 1363, 1444, 1525, 1606, 1687, 1768, 1849, 1930, 2011, 2069, 2092, 2173, 2254, 2335, 2416, 2497, 2578, 2659, 2740, 2798, 2821

Offset

1,1

Links

Table of n, a(n) for n=1..39.

Mathematica

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {7, 4}]>0, 1, 0], {n, 3000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Mar 13 2016 *)

Crossrefs

Sequence in context: A163303 A259956 A044318 * A142223 A033233 A335361

Adjacent sequences: A044696 A044697 A044698 * A044700 A044701 A044702

Keyword

nonn,base

Author

Clark Kimberling

Status

approved