login
A044511
Numbers n such that string 4,4 occurs in the base 6 representation of n but not of n+1.
0
28, 64, 100, 136, 173, 208, 244, 280, 316, 352, 389, 424, 460, 496, 532, 568, 605, 640, 676, 712, 748, 784, 821, 856, 892, 928, 964, 1000, 1043, 1072, 1108, 1144, 1180, 1216, 1253, 1288, 1324, 1360, 1396, 1432, 1469, 1504, 1540
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {4, 4}]>0, 1, 0], {n, 1600}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Oct 20 2015 *)
CROSSREFS
Sequence in context: A342756 A043386 A044130 * A290543 A344044 A183230
KEYWORD
nonn,base
STATUS
approved