A267348 Decimal equivalents of terms of A266926 interpreted as binary numbers.
0, 1, 2, 6, 54, 3510, 14380470, 241264265751990, 67909853583655146508751957430, 5380372916045726369002105219892285499516304666683458153910, 33773148168338125039096320085837383261496919374684668572527108632210618661283323381212228218472784834977109705977270
Offset: 1
Crossrefs
Cf. A266926.
Programs
-
Mathematica
a = {0, 1}; Do[AppendTo[a, FromDigits@ Flatten@ Map[IntegerDigits@ # &, If[n < 2, Reverse@ a, a]]], {n, 9}]; FromDigits[IntegerDigits@ #, 2] & /@ a (* Michael De Vlieger, Jan 13 2016 *)
Extensions
More terms from Michael De Vlieger, Jan 13 2016
Comments