OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
MATHEMATICA
f[n_]:=Length[Divisors[n]]; lst={}; Do[If[f[n]==f[n+1]&&f[n]>4, AppendTo[lst, n]], {n, 7!}]; lst
Position[Partition[DivisorSigma[0, Range[1100]], 2, 1], _?(#[[1]] == #[[2]]> 4&), {1}, Heads->False]//Flatten (* Harvey P. Dale, Sep 30 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 14 2009
STATUS
approved