[go: up one dir, main page]

login
A044758
Numbers n such that string 4,5 occurs in the base 10 representation of n but not of n+1.
0
45, 145, 245, 345, 445, 459, 545, 645, 745, 845, 945, 1045, 1145, 1245, 1345, 1445, 1459, 1545, 1645, 1745, 1845, 1945, 2045, 2145, 2245, 2345, 2445, 2459, 2545, 2645, 2745, 2845, 2945, 3045, 3145, 3245, 3345, 3445, 3459
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {4, 5}]>0, 1, 0], {n, 3500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 09 2018 *)
CROSSREFS
Sequence in context: A336507 A156370 A044377 * A053743 A347874 A234336
KEYWORD
nonn,base
STATUS
approved