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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jan 14 2003
STATUS
approved