OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=Length[Divisors[n]]; lst={}; Do[If[f[n]==f[n+1]==f[n+2]&&f[n]>4, AppendTo[lst, n]], {n, 8!}]; lst
Flatten[Position[Partition[DivisorSigma[0, Range[7000]], 3, 1], _?(Length[ Union[#]]==1&&#[[1]]>4&), {1}, Heads->False]] (* Harvey P. Dale, Jul 20 2014 *)
SequencePosition[Table[If[DivisorSigma[0, n]>4, DivisorSigma[0, n], n], {n, 6100}], {x_, x_, x_}][[All, 1]] (* Harvey P. Dale, Nov 15 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 14 2009
STATUS
approved