A133013
Concatenation of next n primes.
Original entry on oeis.org
2, 35, 71113, 17192329, 3137414347, 535961677173, 79838997101103107, 109113127131137139149151, 157163167173179181191193197, 199211223227229233239241251257, 263269271277281283293307311313317
Offset: 1
-
With[{nn=15},FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[Prime[ Range[ (nn(nn+1))/2]],Range[nn]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Apr 26 2018 *)
A133014
Concatenation of next n Mersenne primes.
Original entry on oeis.org
3, 731, 1278191131071, 52428721474836472305843009213693951618970019642690137449562111
Offset: 1
A134714
Concatenation of next n Catalan numbers.
Original entry on oeis.org
1, 12, 51442, 13242914304862, 16796587862080127429002674440, 96948453535767012964479047763870017672631906564120420, 2446626702091482563640343059613650128990414732448619464014521836735307215269533550916004
Offset: 1
-
Module[{nn=50,cn},cn=CatalanNumber[Range[0,nn]];Table[ FromDigits[ Flatten[ IntegerDigits/@ Take[cn,{(n(n+1))/2+1,((n+1)(n+2))/2}]]],{n,0,Floor[ (Sqrt[ 8*nn+1]-1)/2]-1}]] (* Harvey P. Dale, May 15 2014 *)
Module[{nn=8},FromDigits[Flatten[IntegerDigits/@#]]&/@Rest[TakeList[CatalanNumber[Range[0,(nn(nn+1))/2-1]],Range[0,nn-1]]]] (* Harvey P. Dale, Oct 06 2024 *)
A133015
Concatenation of next n positive triangular numbers.
Original entry on oeis.org
1, 36, 101521, 28364555, 667891105120, 136153171190210231, 253276300325351378406, 435465496528561595630666, 7037417808208619039469901035, 1081112811761225127513261378143114851540
Offset: 1
A134821
Concatenation of next n Motzkin numbers.
Original entry on oeis.org
1, 12, 4921, 51127323835, 218857981551141835113634, 310572853467235677965363821819928450852019, 1425475594007632231129760415319272779790434025012566981847673007772802
Offset: 1
Showing 1-5 of 5 results.