login
A176350
First of three consecutive numbers with at least one 3 in their prime signature.
5
6858, 22625, 28375, 40472, 48248, 49624, 58374, 59750, 94471, 102248, 103624, 107702, 112374, 122823, 129623, 133623, 136214, 136375, 153063, 164295, 187623, 190375, 197910, 199624, 210248, 211624, 220374, 221750, 238248, 246616, 260874, 264248, 275750, 280231, 298375, 300806, 312471, 329623, 336824, 346086, 349623, 352375, 356375
OFFSET
1,1
LINKS
EXAMPLE
6858=2*3^3*127,6859=19^3,6860=2^2*5*7^3,..
MATHEMATICA
f[n_]:=MemberQ[Last/@FactorInteger[n], 3]; Select[Range[9!], f[#]&&f[#+1]&&f[#+2]&]
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Edited by Matthew Vandermast, Dec 09 2010
STATUS
approved