A044522 Numbers n such that string 0,3 occurs in the base 7 representation of n but not of n+1.

52, 101, 150, 199, 248, 297, 346, 370, 395, 444, 493, 542, 591, 640, 689, 713, 738, 787, 836, 885, 934, 983, 1032, 1056, 1081, 1130, 1179, 1228, 1277, 1326, 1375, 1399, 1424, 1473, 1522, 1571, 1620, 1669, 1718, 1742, 1767, 1816

Offset

1,1

Links

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

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {0, 3}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 23 2020 *)

Crossrefs

Sequence in context: A094552 A236461 A044141 * A335479 A272140 A252343

Adjacent sequences: A044519 A044520 A044521 * A044523 A044524 A044525

Keyword

nonn,base

Author

Clark Kimberling

Status

approved