login
A079891
a(n) = gcd(n, A079890(n)).
5
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
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
Sequence in context: A324873 A325566 A218621 * A108738 A064405 A235872
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 14 2003
STATUS
approved