|
Search: id:A117733
|
|
| |
|
| 2, 3, 7, 10, 34, 54, 234, 402, 1938, 17490, 19590, 209670, 237390, 2933070, 43575630, 696759630, 697240110, 12541643310, 12550832490, 250832355690
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
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) = 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] a=Table[cf[n] + p[n], {n, 1, 20}]
|
|
CROSSREFS
|
Cf. A034386, A117683.
Adjacent sequences: A117730 A117731 A117732 this_sequence A117734 A117735 A117736
Sequence in context: A007748 A126617 A140108 this_sequence A066236 A118203 A064956
|
|
KEYWORD
|
nonn,uned,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 14 2006
|
|
|
Search completed in 0.002 seconds
|
