|
| |
|
|
A129150
|
|
The n-th arithmetic derivative of 2^3.
|
|
9
|
|
|
|
8, 12, 16, 32, 80, 176, 368, 752, 1520, 3424, 8592, 20096, 70464, 235072, 705280, 3023616, 13223680, 55540736, 278539264, 1392697344, 9541095424, 58609614848, 410267320320, 3397142953984, 24143851798528, 176071227916288, 1232666139967488, 9523075842834432
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
COMMENTS
|
a(n) = A090636(n+2).
a(n) = A129284(n)*2^2; A129251(a(n)) > 0. - Reinhard Zumkeller, Apr 07 2007
Conjecture: a strictly increasing sequence. [J. Lowell, Sep 10 2008]
|
|
|
LINKS
|
Charles R Greathouse IV, Table of n, a(n) for n = 0..100
|
|
|
FORMULA
|
a(n+1) = A003415(a(n)), a(0) = 2^3 = 8.
|
|
|
MATHEMATICA
|
dn[0] = 0; dn[1] = 0; dn[n_?Negative] := -dn[-n]; dn[n_] := Module[{f = Transpose[FactorInteger[n]]}, If[PrimeQ[n], 1, Total[n*f[[2]]/f[[1]]]]]; s = 2^3; Join[{s}, Table[s = dn[s], {28}]] (* T. D. Noe, Mar 07 2013 *)
|
|
|
PROG
|
(Haskell)
a129150 n = a129150_list !! n
a129150_list = iterate a003415 8 -- Reinhard Zumkeller, Apr 29 2012
|
|
|
CROSSREFS
|
Cf. A129151, A129152, A068327, A099309, A051674, A100716.
Sequence in context: A110558 A163283 A036705 * A175975 A030752 A091523
Adjacent sequences: A129147 A129148 A129149 * A129151 A129152 A129153
|
|
|
KEYWORD
|
nonn,changed
|
|
|
AUTHOR
|
Reinhard Zumkeller, Apr 01 2007
|
|
|
EXTENSIONS
|
a(21)-a(27) from Paolo P. Lava, Apr 16 2012
|
|
|
STATUS
|
approved
|
| |
|
|
