A044528 - OEIS

A044528

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

9, 58, 69, 107, 156, 205, 254, 303, 352, 401, 412, 489, 499, 548, 597, 646, 695, 744, 755, 793, 842, 891, 940, 989, 1038, 1087, 1098, 1136, 1185, 1234, 1283, 1332, 1381, 1430, 1441, 1479, 1528, 1577, 1626, 1675, 1724, 1773

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 7], {1, 2}]>0, 1, 0], {n, 2000}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, May 24 2015 *)

CROSSREFS

Sequence in context: A012089 A343133 A044147 * A027174 A304370 A099624

Adjacent sequences: A044525 A044526 A044527 * A044529 A044530 A044531

KEYWORD

nonn,base

AUTHOR

Clark Kimberling

STATUS

approved