1,1

a[n]=Min{Prime[x];Floor[A008333[x]/x]=n}

n=4:a[4]=55439 because Floor[sigma[sigma[55439]]/55439]=Floor[232128/55439]=n=4.

n=5:a[5]=232792559 because Floor[sigma[sigma[a(5)]/a(5)=Floor[5.02561]=5.

Cf. A000203, A051027, A008333, A098219-A098221.

Sequence in context: A154355 A154354 A078421 this_sequence A114457 A010220 A104818

Adjacent sequences: A098219 A098220 A098221 this_sequence A098223 A098224 A098225

more,nonn

Labos E. (labos(AT)ana.sote.hu), Oct 25 2004