A177943 -id:A177943 - cp's OEIS frontend

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

Vladimir Shevelev, May 15 2010

nonn

Records are in A177945, indices of records in A177943.

Cf. A177941, A023200, A177930, A177929.

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

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

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

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

A177945 Record values in A177942.

Original entry on oeis.org

3, 7, 13, 37, 79, 163, 349, 757, 1567, 3163, 6547, 13099, 26497, 52999, 106273, 212557, 426889, 855427, 1710853, 3421903, 6845869, 13691767, 27385087, 54771007, 109542907, 219096259, 438203677, 876417229, 1752875893, 3505814527, 7011656629, 14023322167, 28046754727, 56093637367

Offset: 1

Vladimir Shevelev, May 15 2010

nonn

From the construction of A177941, this is a subsequence of A023200.

Cf. A177941, A177942, A177943, A023200, A177929, A177930, A177931, A177932.

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

Sequence extended by R. J. Mathar, Jun 30 2010

More terms from Michel Marcus, Dec 14 2018

cp's OEIS Frontend

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

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions