[go: up one dir, main page]

login
A044712
Numbers n such that string 8,8 occurs in the base 9 representation of n but not of n+1.
0
80, 161, 242, 323, 404, 485, 566, 647, 728, 809, 890, 971, 1052, 1133, 1214, 1295, 1376, 1457, 1538, 1619, 1700, 1781, 1862, 1943, 2024, 2105, 2186, 2267, 2348, 2429, 2510, 2591, 2672, 2753, 2834, 2915, 2996, 3077, 3158
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {8, 8}]>0, 1, 0], {n, 3200}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 23 2017 *)
CROSSREFS
Cf. A157597, A010734 [From Vincenzo Librandi, Mar 13 2009]
Sequence in context: A043486 A031496 A044331 * A357080 A044412 A044793
KEYWORD
nonn,base
STATUS
approved