|
Search: id:A117878
|
|
| |
|
| 0, 1, 1, 5, 5, 5, 5, 5, 5, 23, 29, 29, 29, 119, 119, 29, 29, 29, 119, 119, 719, 209, 209, 209, 839, 839, 5039, 5039, 209, 209, 209, 839, 839, 5039, 5039, 40319, 209, 209, 209, 839, 839, 5039, 5039, 40319, 362879, 209, 209, 209, 839, 839, 5039, 5039, 40319, 362879
(list; table; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
FORMULA
|
a(n,m) = A034386[n]*A049614[n]-1
|
|
EXAMPLE
|
0
1, 1
5, 5, 5
5, 5, 5, 23
29, 29, 29, 119, 119
29, 29, 29, 119, 119, 719
209, 209, 209, 839, 839, 5039, 5039
209, 209, 209, 839, 839, 5039, 5039, 40319
209, 209, 209, 839, 839, 5039, 5039, 40319, 362879
209, 209, 209, 839, 839, 5039, 5039, 40319, 362879, 3628799
|
|
MATHEMATICA
|
f[n_] := If[PrimeQ[n] == True, 1, n] cf[0] = 1; cf[n_Integer?Positive] := cf[n] = f[n]*cf[n - 1] g[n_] := If[PrimeQ[n] == True, n, 1] p[0] = 1; p[n_Integer?Positive] := p[n] = g[n]*p[n - 1] F[n_, m_] = p[n]*cf[m] - 1 a0 = Flatten[Table[Table[F[n, m], {m, 1, n}], {n, 1, 10}]]
|
|
CROSSREFS
|
Cf. A034386, A049614.
Sequence in context: A010716 A021022 A032560 this_sequence A094636 A105247 A001735
Adjacent sequences: A117875 A117876 A117877 this_sequence A117879 A117880 A117881
|
|
KEYWORD
|
nonn,tabl,uned
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), May 02 2006
|
|
|
Search completed in 0.002 seconds
|
