OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..19
MATHEMATICA
f[n_]:=Length[Divisors[n]]; a=1; b=0; c=0; lst={}; Do[c=a+b+c; If[f[c-1]==f[c+1], AppendTo[lst, c]]; a=b; b=c, {n, 80}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 14 2009
EXTENSIONS
a(8)-a(11) from Amiram Eldar, Aug 08 2024
STATUS
approved