OFFSET
1,3
MAPLE
A130419 := proc(n, m) local ndf, mprime, a ; ndf := doublefactorial(n) ; a := 0 ; for mprime from 1 to m do a := a+1 ; while gcd(a, ndf) <> 1 do a := a+1 ; od ; od ; RETURN(a) ; end: for n from 1 to 15 do for m from 1 to n do printf("%d, ", A130419(n, m)) ; od ; od ; # R. J. Mathar, Jun 06 2007
MATHEMATICA
T[n_, m_] := Module[{ndf = n!!, mprime, a = 0}, For[mprime = 1, mprime <= m, mprime++, a++; While[GCD[a, ndf] != 1, a++]]; Return[a]];
Table[T[n, m], {n, 1, 15}, {m, 1, n}] // Flatten (* Jean-François Alcover, Jul 21 2024, after R. J. Mathar *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Leroy Quet, May 25 2007
EXTENSIONS
More terms from R. J. Mathar, Jun 06 2007
STATUS
approved