A079891 a(n) = gcd(n, A079890(n)).

1, 2, 1, 4, 1, 2, 1, 8, 3, 2, 1, 4, 1, 2, 3, 16, 1, 6, 1, 4, 3, 1, 1, 8, 1, 1, 9, 4, 1, 6, 1, 32, 3, 2, 7, 12, 1, 2, 3, 8, 1, 6, 1, 2, 9, 2, 1, 16, 1, 2, 1, 2, 1, 18, 1, 8, 3, 1, 1, 12, 1, 1, 9, 64, 1, 3, 1, 1, 1, 1, 1, 24, 1, 1, 3, 1, 1, 3, 1, 16, 27, 2, 1, 12, 1, 2, 1, 4, 1, 18, 1, 4, 1, 2, 1, 32, 1, 2, 1

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

lng[n_]:=Module[{x=n+1, pon=PrimeOmega[n]}, While[PrimeOmega[x]-pon! = 1, x++]; x]; Table[GCD[n, lng[n]], {n, 100}] (* Harvey P. Dale, Jun 10 2013 *)

Crossrefs

Cf. A079893, A079894.

Sequence in context: A324873 A325566 A218621 * A108738 A064405 A235872

Adjacent sequences: A079888 A079889 A079890 * A079892 A079893 A079894

Keyword

nonn

Author

Reinhard Zumkeller, Jan 14 2003

Status

approved