A278842 a(n) = permanent M_n where M_n is the n X n matrix m(i,j) = Bell(i+j).
1, 2, 55, 27748, 344594008, 136380529541352, 2157772538315935462248, 1668027050325234150218003699928, 75373026050211759045605399079260651909904, 234016759373014155226647943608719679545651260629498624
Offset: 0
Keywords
Programs
-
Mathematica
Flatten[{1, Table[Permanent[Table[BellB[i+j], {i, 1, n}, {j, 1, n}]], {n, 1, 12}]}]