This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176350 #14 Sep 09 2019 18:01:26 %S A176350 6858,22625,28375,40472,48248,49624,58374,59750,94471,102248,103624, %T A176350 107702,112374,122823,129623,133623,136214,136375,153063,164295, %U A176350 187623,190375,197910,199624,210248,211624,220374,221750,238248,246616,260874,264248,275750,280231,298375,300806,312471,329623,336824,346086,349623,352375,356375 %N A176350 First of three consecutive numbers with at least one 3 in their prime signature. %H A176350 Harvey P. Dale, <a href="/A176350/b176350.txt">Table of n, a(n) for n = 1..1000</a> %e A176350 6858=2*3^3*127,6859=19^3,6860=2^2*5*7^3,.. %t A176350 f[n_]:=MemberQ[Last/@FactorInteger[n], 3]; Select[Range[9!],f[#]&&f[#+1]&&f[#+2]&] %t A176350 SequencePosition[Table[If[MemberQ[FactorInteger[n][[All,2]],3],1,0],{n,360000}],{1,1,1}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 09 2019 *) %Y A176350 Cf. A000578, A001235, A176297, A176313. %K A176350 nonn %O A176350 1,1 %A A176350 _Vladimir Joseph Stephan Orlovsky_, Dec 07 2010 %E A176350 Edited by _Matthew Vandermast_, Dec 09 2010