A177942 Smallest prime divisor of (A177941(n))^2-4.

3, 3, 7, 13, 5, 3, 5, 3, 37, 7, 79, 7, 163, 5, 3, 5, 3, 11, 3, 349, 17, 3, 5, 3, 5, 3, 17, 3, 5, 3, 5, 3, 757, 17, 3, 5, 3, 23, 3, 5, 3, 1567, 13, 5, 3, 5, 3, 7, 3163, 5, 3, 5, 3, 17, 3, 5, 3, 5, 3, 23, 3, 5, 3, 37, 7, 17, 3, 7, 23, 3, 13, 7, 5, 3, 5, 3, 7, 11, 3, 5, 3, 5, 3, 6547, 7, 13099, 7, 73

Offset: 1

Author

Vladimir Shevelev, May 15 2010

Keywords

• nonn

Comments

Records are in A177945, indices of records in A177943.

Crossrefs

Cf. A177941, A023200, A177930, A177929.

Programs

Mathematica

Differences[NestList[# + FactorInteger[#^2 - 4][[1, 1]] - 1 &, 5, 100]] + 1 (* Amiram Eldar, Dec 14 2018 after Michael De Vlieger at A177941 *)

PARI

listap(nn) = {my(va = vector(nn), p); va[1] = 5; for (n=2, nn, p = factor(va[n-1]^2-4)[1,1]; print1(p, ", "); va[n] = va[n-1] + p - 1;);} \\ Michel Marcus, Dec 14 2018

Formula

a(n) = A020639((A177941(n))^2-4) .

Extensions

Entries checked by R. J. Mathar, Jun 30 2010