|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|