A044512 Numbers n such that string 4,5 occurs in the base 6 representation of n but not of n+1.

29, 65, 101, 137, 179, 209, 245, 281, 317, 353, 395, 425, 461, 497, 533, 569, 611, 641, 677, 713, 749, 785, 827, 857, 893, 929, 965, 1001, 1079, 1109, 1145, 1181, 1217, 1259, 1289, 1325, 1361, 1397, 1433, 1475, 1505, 1541, 1577, 1613, 1649, 1691, 1721, 1757

Offset

1,1

Links

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

Mathematica

f[n_] := Length[StringPosition[ToString[FromDigits[IntegerDigits[n, 6]]], "45", 1]]; Select[Table[n, {n, 10000}], f[#] > 0 && f[# + 1] == 0 &] (* Vladimir Joseph Stephan Orlovsky, Jul 20 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 6], {4, 5}]>0, 1, 0], {n, 2000}], {1, 0}][[All, 1]]; (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 04 2018 *)

Crossrefs

Cf. A044131.

Sequence in context: A259636 A240169 A044131 * A211492 A165238 A201022

Adjacent sequences: A044509 A044510 A044511 * A044513 A044514 A044515

Keyword

nonn,base

Author

Clark Kimberling

Status

approved