login
A044665
Numbers n such that string 3,6 occurs in the base 9 representation of n but not of n+1.
0
33, 114, 195, 276, 305, 357, 438, 519, 600, 681, 762, 843, 924, 1005, 1034, 1086, 1167, 1248, 1329, 1410, 1491, 1572, 1653, 1734, 1763, 1815, 1896, 1977, 2058, 2139, 2220, 2301, 2382, 2463, 2492, 2544, 2625, 2753, 2787
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {3, 6}]>0, 1, 0], {n, 3000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 02 2018 *)
CROSSREFS
Sequence in context: A039520 A198291 A044284 * A140161 A177211 A337626
KEYWORD
nonn,base
STATUS
approved