|
Search: id:A117734
|
|
| |
|
| 0, 1, 5, 2, 26, 6, 186, 18, 1518, 17070, 14970, 205050, 177330, 2873010, 43515570, 696699570, 696219090, 12540622290, 12531433110, 250812956310
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
COMMENT
|
cf[n]*p[n]=n! Strange relationship: ( they are each other's derivatives) Ce[x]=Sum[x^n/cf[n],{n,0,Infinity}]=Sum[p[n]*x^n/n!,{n,0,Infinity}] Pe[x]=Sum[x^n/p[n],{n,0,Infinity}]=Sum[cf[n]*x^n/n!,{n,0,Infinity}] Ce=4.58924612663798617135810242073507073692741483386167483065019995744497664486228240998061316144953560 Pe=2.920050977316134712092562917112019468002727899321426719772682533107733772127766124190178112317583742
|
|
FORMULA
|
a(n) = Abs[ -A034386[n]+A117683[n]]
|
|
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] Table[Abs[ -cf[n] + p[n]], {n, 1, 20}]
|
|
CROSSREFS
|
Cf. A034386, A117683.
Sequence in context: A135138 A128712 A100080 this_sequence A007572 A095998 A099612
Adjacent sequences: A117731 A117732 A117733 this_sequence A117735 A117736 A117737
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
