OFFSET
1,1
LINKS
Marius A. Burtea, Table of n, a(n) for n = 1..1000
MAPLE
MATHEMATICA
Composite[n_] := FixedPoint[n + PrimePi[#] + 1&, n + PrimePi[n] + 1];
a[n_] := GCD[Composite[n], Composite[2n]];
Table[a[n], {n, 1, 102}] (* Jean-François Alcover, Jan 28 2024 *)
PROG
(Magma) v:=[k:k in [2..300]|not IsPrime(k)]; [Gcd(v[m], v[2*m]):m in [1..101]]; // Marius A. Burtea, Aug 03 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jan 31 2008
EXTENSIONS
More terms from R. J. Mathar, Feb 05 2008
STATUS
approved