1,1

Solutions to c[x^2]=y^2: the values of y^2; where c(j)=jth composite number; See program.

composite=1225=35.35=A002808(1024)=c(32.32).

c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] Do[s=c[n^2]; If[IntegerQ[Sqrt[s]], Print[s]], {n, 1, 1000000}]

Cf. A002808, A073171, A073172.

Adjacent sequences: A073170 A073171 A073172 this_sequence A073174 A073175 A073176

Sequence in context: A089149 A082920 A110979 this_sequence A092464 A134578 A009851

nonn

Labos E. (labos(AT)ana.sote.hu), Jul 19 2002