5410805140620789}}
Table[RainbowHashXG[Hash[xu, "SHA512"], 2, 5, 5], {xu, 1, 10}]
{{{{1, 1, 1, 1, 5}, {1, 2, 3, 4, 5}, {1, 1, 3, 2, 5}, {1, 2, 1, 4,
1}, {1, 1, 3, 1, 5}},
12579926171497332473039920596952835386489858401292624452730263741969\
1347390182282976402981790496477460666208142347425205936701161323553455\
43156774710409041}, {{{1, 2, 1, 4, 5}, {1, 1, 3, 2, 5}, {1, 2, 3,
4, 1}, {1, 1, 1, 1, 5}, {1, 2, 3, 4, 5}},
37854471215291391986149267401049113295567628473597440675968265868739\
3920246834469920751231286910611366704757913119360843344094113813460828\
6029275267369625}, {{{1, 2, 3, 4, 5}, {1, 1, 1, 1, 5}, {1, 2, 3, 4,
5}, {1, 1, 3, 2, 5}, {1, 2, 1, 4, 1}},
71668700870008575285238318023246235316098096074289026150051114683524\
8893999285271969471146596174190457020264703584540790263678736452792747\
5984118971455163}, {{{1, 2, 3, 4, 5}, {1, 1, 1, 1, 5}, {1, 2, 3, 4,
5}, {1, 1, 3, 2, 1}, {1, 2, 1, 4, 5}},
33095966240281217830184164668404219514626500609945265788213543056523\
6612792119604718913684957565086394439681603253709963629672412822522528\
4694992131191098}, {{{1, 2, 3, 4, 1}, {1, 1, 3, 1, 5}, {1, 2, 1, 4,
5}, {1, 1, 3, 2, 5}, {1, 1, 3, 1, 5}},
86087420302049294430262146818103852368792727362988712093781053088200\
5531339261473092981846995901587757487311471069416835834626804973821926\
684090578667825}, {{{1, 1, 1, 1, 5}, {1, 2, 3, 4, 5}, {1, 1, 3, 2,
5}, {1, 2, 1, 4, 1}, {1, 1, 3, 1, 5}},
18586086601485268646467765285794047467027639305129763019055665664163\
2819380637531124748570695025942793945139516664108034654512831533948189\
743738184270224}, {{{1, 2, 3, 4, 1}, {1, 1, 1, 2, 5}, {1, 2, 3, 4,
5}, {1, 2, 3, 4, 5}, {1, 1, 3, 2, 5}},
72109882448403363840259529414390721196358024901859951350044294221621\
3409708767088486766304397692430037767785681544787701437132358156239382\
5256452011168475}, {{{1, 1, 3, 1, 5}, {1, 2, 3, 4, 1}, {1, 1, 1, 2,
5}, {1, 2, 3, 4, 5}, {1, 1, 3, 1, 5}},
22760214977694020069971224118591466739483553732805530503408373418535\
1711847169063849360187954434350675389187296376543635586233555068331343\
3001046271103001}, {{{1, 1, 1, 2, 5}, {1, 2, 3, 4, 5}, {1, 1, 3, 1,
1}, {1, 2, 1, 4, 5}, {1, 2, 1, 4, 1}},
11906459655144790308170064541982556680120578173098014909650827827844\
2313493552143468785692756291539132782149145837942478466345517803751070\
21641806135272354}, {{{1, 2, 1, 4, 5}, {1, 1, 3, 1, 1}, {1, 2, 3,
4, 5}, {1, 1, 1, 2, 5}, {1, 2, 3, 4, 5}},
88155955858214177781767282869972903505820511583564376117417944351446\
8458315518532665921338085983977628624644833036888032312932654944528755\
5410805140620789}}
FiveItt[x98_, cc5_] :=
DifferenceRoot[
Function[{\[FormalY], \[FormalN]}, {-cc5 -
cc5 \[FormalY][\[FormalN]] + \[FormalY][1 + \[FormalN]] == 0, \[FormalY][1] == 1, \[FormalY][2] == cc5}]][x98];
BCC[x55_, g77_] := Drop[Flatten[Reap[ Module[ {x45 = x55, z7 = 0, z8
= 0, z9, g7 = g77, bell},
z7 = If[x45/FiveItt[Length[IntegerDigits[x45, g7]], g7] <= 1, If[x45
== 1, 1, Length[IntegerDigits[x45, g7]] - 1], Length[IntegerDigits[x45, g7]]]; bell = FiveItt[z7 - 1, g7]; z9 =
g7^(z7 - 1);
Label[SPo]; z8 = If[IntegerQ[x45/g7] && x45 > g7, Quotient[x45 -
bell - (1/(2*g7)), z9], If[x45 <= g7, x45, Quotient[x45 - bell,
z9]]]; Sow[z8]; x45 = x45 - (z8*(z9)); z7 = z7 - 1; z9 = z9/g7; bell
= bell - z9;
If[z7 < 1, Goto[EnD], Goto[SPo]];
Label[EnD];
] ]], 1];
Px = Compile[ {{x1d, _Complex}, {si1d, _Real}} , Module[{x1c = x1d,
si1c = si1d} , x1c + 1/2 (Floor[ Re[(-4 + si1c + Sqrt[(-4 + si1c)^2
- 8 (-2 + si1c) (-1 + x1d)])/( 2 (-2 + si1c))]] + Floor[Im[(-4 + si1c + Sqrt[(-4 + si1c)^2 + 8 (-2 + si1c) (-1 + x1d)])/( 2 (-2 +
si1c))]] I) (-4 + si1c - (-2 + si1c) (Floor[ Re[(-4 + si1c +
Sqrt[(-4 + si1c)^2 + 8 (-2 + si1c) (-1 + x1c)])/( 2 (-2 + si1c))]] +
Floor[Im[(-4 + si1c + Sqrt[(-4 + si1c)^2 + 8 (-2 + si1c) (-1 +
x1c)])/( 2 (-2 + si1c))]] I))] , CompilationTarget -> "C",
"RuntimeOptions" -> "Speed"];