A088347 This sequence needs a definition.

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

Links

Table of n, a(n) for n=0..93.

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: A338035 A110243 A169950 * A069568 A210545 A141323

Adjacent sequences: A088344 A088345 A088346 * A088348 A088349 A088350

Keyword

nonn,uned,less

Author

Roger L. Bagula, Nov 07 2003

Status

approved