login
A044350
Numbers n such that string 1,8 occurs in the base 10 representation of n but not of n-1.
0
18, 118, 180, 218, 318, 418, 518, 618, 718, 818, 918, 1018, 1118, 1180, 1218, 1318, 1418, 1518, 1618, 1718, 1800, 1918, 2018, 2118, 2180, 2218, 2318, 2418, 2518, 2618, 2718, 2818, 2918, 3018, 3118, 3180, 3218, 3318, 3418
OFFSET
1,1
MATHEMATICA
Select[Range[3500], MemberQ[Partition[IntegerDigits[#], 2, 1], {1, 8}] && !MemberQ[Partition[IntegerDigits[#-1], 2, 1], {1, 8}]&] (* Harvey P. Dale, Apr 11 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {1, 8}]>0, 1, 0], {n, 3500}], {0, 1}][[;; , 2]] (* Harvey P. Dale, Oct 05 2024 *)
CROSSREFS
Sequence in context: A101089 A022678 A293878 * A044731 A190705 A108648
KEYWORD
nonn,base
STATUS
approved