login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A153488 Prime based triangular sequence: t(n,m)=If[m == 1, Prime[n], Prime[n]^m - 2^(2*m - 3)]. 0
2, 3, 7, 5, 23, 117, 7, 47, 335, 2369, 11, 119, 1323, 14609, 160923, 13, 167, 2189, 28529, 371165, 4826297, 17, 287, 4905, 83489, 1419729, 24137057, 410336625, 19, 359, 6851, 130289, 2475971, 47045369, 893869691, 16983554849, 23, 527, 12159 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

Row sums are:

{2, 10, 145, 2758, 176985, 5228360, 435982109, 17927083398, 1883023193293,

435732491457588,...}

LINKS

Table of n, a(n) for n=1..39.

FORMULA

t(n,m)=If[m == 1, Prime[n], Prime[n]^m - 2^(2*m - 3)].

EXAMPLE

{2},

{3, 7},

{5, 23, 117},

{7, 47, 335, 2369},

{11, 119, 1323, 14609, 160923},

{13, 167, 2189, 28529, 371165, 4826297},

{17, 287, 4905, 83489, 1419729, 24137057, 410336625},

{19, 359, 6851, 130289, 2475971, 47045369, 893869691, 16983554849},

{23, 527, 12159, 279809, 6436215, 148035377, 3404823399, 78310977089, 1801152628695},

{29, 839, 24381, 707249, 20511021, 594822809, 17249874261, 500246404769, 14507145943101, 420707233169129}

MATHEMATICA

t[n_, m_] = If[m == 1, Prime[n], Prime[n]^m - 2^(2*m - 3)];

Table[Table[t[n, m], {m, 1, n}], {n, 1, 10}];

Flatten[%]

CROSSREFS

Sequence in context: A038026 A051860 A155766 * A275115 A085399 A063696

Adjacent sequences:  A153485 A153486 A153487 * A153489 A153490 A153491

KEYWORD

nonn,uned,tabl

AUTHOR

Roger L. Bagula, Dec 27 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 23 14:11 EDT 2019. Contains 328345 sequences. (Running on oeis4.)