OFFSET
0,1
COMMENTS
Subsequence of terms != 1 appears to give A063957. - Joerg Arndt, Jul 05 2021
MATHEMATICA
(* generate the semiprimes *)
digits=20
a=Flatten[Table[Prime[i]*Prime[j], {i, 1, digits}, {j, 1, digits}]];
b=Union[a]
f[n_]=b[[n]]
(* factorial cancellation function *)
p[n_]=n!/Product[f[i], {i, 1, Floor[Sqrt[n^2/2+n/2]]}]
(* pick out the numbers *)
a1=Table[If[Floor[p[n+1]/p[n]]<n, 1, Floor[p[n+1]/p[n]]], {n, 1, 209}]
CROSSREFS
KEYWORD
nonn,uned,less
AUTHOR
Roger L. Bagula, Nov 07 2003
STATUS
approved