login
A044495
Numbers n such that string 2,0 occurs in the base 6 representation of n but not of n+1.
0
12, 48, 77, 84, 120, 156, 192, 228, 264, 293, 300, 336, 372, 408, 467, 480, 509, 516, 552, 588, 624, 660, 696, 725, 732, 768, 804, 840, 876, 912, 941, 948, 984, 1020, 1056, 1092, 1128, 1157, 1164, 1200, 1236, 1272, 1308, 1344
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {2, 0}]>0, 1, 0], {n, 1500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 05 2019 *)
CROSSREFS
Sequence in context: A044114 A323008 A371599 * A213493 A009958 A256695
KEYWORD
nonn,base
STATUS
approved