A079083 Smallest odd prime factor of (prime(n)+1)*(prime(n+1)+1)/4.

3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 19, 3, 3, 3, 3, 3, 3, 17, 3, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 19, 41, 3, 3, 3, 3, 3, 3, 3, 3, 5, 7, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 17, 3, 3, 3, 3, 3, 3, 3, 3, 13, 3, 3, 3, 3, 3, 11, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 131, 137

Offset

1,1

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Formula

a(n) = A078701(A079079(n)).

Mathematica

odd[n_] := n / 2^IntegerExponent[n, 2]; a[n_] := FactorInteger[odd[(Prime[n]+1)*(Prime[n+1]+1)]][[1, 1]]; Array[a, 100] (* Amiram Eldar, Apr 06 2025 *)

Prog

(Haskell)
a079083 = a078701 . a079079  -- Reinhard Zumkeller, Oct 08 2012
(PARI) odd(n) = n >> valuation(n, 2);
a(n) = factor(odd((prime(n)+1)*(prime(n+1)+1)))[1, 1]; \\ Amiram Eldar, Apr 06 2025

Crossrefs

Cf. A078701, A079079, A079084.

Sequence in context: A243129 A135717 A335465 * A381042 A176171 A032568

Adjacent sequences: A079080 A079081 A079082 * A079084 A079085 A079086

Keyword

nonn

Author

Reinhard Zumkeller, Dec 22 2002

Status

approved