|
| |
|
|
A113854
|
|
a(n) = Sum[2^(A047240(i)-1), {i,1,n}].
|
|
1
| |
|
|
1, 3, 35, 99, 227, 2275, 6371, 14563, 145635, 407779, 932067, 9320675, 26097891, 59652323, 596523235, 1670265059, 3817748707, 38177487075, 106896963811, 244335917283, 2443359172835, 6841405683939, 15637498706147
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
EXAMPLE
| a(2) = 2^(A047240(1)-1) + 2^(A047240(2)-1) = 2^0 + 2^1 = 3
|
|
|
MATHEMATICA
| a = {}; s = 0; For[n = 1, n < 48, n++, If[Length[Intersection[{Mod[n, 6]}, {1, 2, 0}]] > 0, s = s + 2^(n - 1); AppendTo[a, s]]]; a
|
|
|
CROSSREFS
| Cf. A047240.
Sequence in context: A054287 A176761 A001539 * A076376 A133710 A130061
Adjacent sequences: A113851 A113852 A113853 * A113855 A113856 A113857
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 27 2006
|
|
|
EXTENSIONS
| Edited by Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Jul 24 2007
|
| |
|
|
