login
A088347
This sequence needs a definition.
0
2, 1, 1, 5, 1, 1, 1, 9, 1, 1, 12, 1, 1, 15, 1, 1, 1, 19, 1, 1, 22, 1, 1, 1, 26, 1, 1, 29, 1, 1, 32, 1, 1, 1, 36, 1, 1, 39, 1, 1, 1, 43, 1, 1, 46, 1, 1, 1, 50, 1, 1, 53, 1, 1, 56, 1, 1, 1, 60, 1, 1, 63, 1, 1, 1, 67, 1, 1, 70, 1, 1, 73, 1, 1, 1, 77, 1, 1, 80, 1, 1, 1, 84, 1, 1, 87, 1, 1, 90, 1, 1, 1, 94, 1
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
Sequence in context: A373843 A110243 A169950 * A069568 A210545 A141323
KEYWORD
nonn,uned,less
AUTHOR
Roger L. Bagula, Nov 07 2003
STATUS
approved