A325258 a(1) = 1; otherwise, first differences of Levine's sequence A011784.
1, 1, 1, 1, 3, 7, 28, 171, 2624, 172613, 139584150, 6837485347187, 266437138079023501057, 508009471379222384299345337895696, 37745517525533091954228691786161750063795478326636142, 5347426383812697233786139576220412396732847744407175515852823296919414647252347610750
Offset: 0
Keywords
Crossrefs
Programs
-
Mathematica
grw[q_]:=Join@@Table[ConstantArray[i,q[[Length[q]-i+1]]],{i,Length[q]}]; ReplacePart[Differences[Last/@NestList[grw,{1,1},9]],2->1]
Comments