login
A044499
Numbers n such that string 2,4 occurs in the base 6 representation of n but not of n+1.
0
16, 52, 88, 101, 124, 160, 196, 232, 268, 304, 317, 340, 376, 412, 448, 484, 520, 533, 556, 611, 628, 664, 700, 736, 749, 772, 808, 844, 880, 916, 952, 965, 988, 1024, 1060, 1096, 1132, 1168, 1181, 1204, 1240, 1276, 1312, 1348
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {2, 4}]>0, 1, 0], {n, 1500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 10 2017 *)
CROSSREFS
Sequence in context: A236523 A235660 A044118 * A241489 A009953 A009939
KEYWORD
nonn,base
STATUS
approved