login
A044358
Numbers n such that string 2,6 occurs in the base 10 representation of n but not of n-1.
1
26, 126, 226, 260, 326, 426, 526, 626, 726, 826, 926, 1026, 1126, 1226, 1260, 1326, 1426, 1526, 1626, 1726, 1826, 1926, 2026, 2126, 2226, 2260, 2326, 2426, 2526, 2600, 2726, 2826, 2926, 3026, 3126, 3226, 3260, 3326, 3426
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[4000], MemberQ[Partition[IntegerDigits[#], 2, 1], {2, 6}] && !MemberQ[Partition[IntegerDigits[#-1], 2, 1], {2, 6}]&] (* Harvey P. Dale, Mar 20 2012 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {2, 6}]>0, 1, 0], {n, 3500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 03 2021 *)
CROSSREFS
Sequence in context: A124954 A126413 A246032 * A044739 A304834 A304169
KEYWORD
nonn,base
STATUS
approved