[go: up one dir, main page]

login
A044295
Numbers n such that string 4,8 occurs in the base 9 representation of n but not of n-1.
0
44, 125, 206, 287, 368, 396, 449, 530, 611, 692, 773, 854, 935, 1016, 1097, 1125, 1178, 1259, 1340, 1421, 1502, 1583, 1664, 1745, 1826, 1854, 1907, 1988, 2069, 2150, 2231, 2312, 2393, 2474, 2555, 2583, 2636, 2717, 2798
OFFSET
1,1
MATHEMATICA
Select[Range[2900], MemberQ[Partition[IntegerDigits[#, 9], 2, 1], {4, 8}] && !MemberQ[Partition[IntegerDigits[#-1, 9], 2, 1], {4, 8}]&] (* Harvey P. Dale, Apr 18 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 9], {4, 8}]>0, 1, 0], {n, 3000}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 30 2019 *)
CROSSREFS
Sequence in context: A245616 A264446 A039441 * A044676 A253327 A253320
KEYWORD
nonn,base
STATUS
approved