A115345 Position of n^4 in the lexicographically arranged permutations of digits of n^4.

1, 1, 1, 2, 1, 5, 2, 17, 8, 10, 5, 9, 29, 46, 45, 29, 24, 114, 126, 72, 25, 55, 31, 192, 45, 341, 6, 165, 62, 196, 30, 330, 740, 90, 4, 455, 67, 356, 1549, 216, 145, 996, 182, 647, 1118, 1565, 55, 610, 3141, 2729, 205, 2159, 392, 1360, 1177, 2249, 1142, 766, 65, 382

Offset

0,4

Links

Table of n, a(n) for n=0..59.

Example

a(5)=5 because 5^4=625 and {6, 2, 5} is at 5th position among 6 permutations of {2, 5, 6}: {{2, 5, 6}, {2, 6, 5}, {5, 2, 6}, {5, 6, 2}, {6, 2, 5}, {6, 5, 2}}; a(7)=17 because 7^4=2401 and {2, 4, 0, 1} is at 17th position among 24 permutations of {0, 1, 2, 4}: {{0, 1, 2, 4}, {0, 1, 4, 2}, {0, 2, 1, 4}, {0, 2, 4, 1}, {0, 4, 1, 2}, {0, 4, 2, 1}, {1, 0, 2, 4}, {1, 0, 4, 2}, {1, 2, 0, 4}, {1, 2, 4, 0}, {1, 4, 0, 2}, {1, 4, 2, 0}, {2, 0, 1, 4}, {2, 0, 4, 1}, {2, 1, 0, 4}, {2, 1, 4, 0}, {2, 4, 0, 1}, {2, 4, 1, 0}, {4, 0, 1, 2}, {4, 0, 2, 1}, {4, 1, 0, 2}, {4, 1, 2, 0}, {4, 2, 0, 1}, {4, 2, 1, 0}}.

Mathematica

Reap[Do[per=Permutations[Sort[tn=IntegerDigits[n^4]]]; Sow[Position[per, tn]], {n, 0, 100}]]

Crossrefs

Sequence in context: A343254 A143891 A030400 * A194092 A140165 A185131

Adjacent sequences: A115342 A115343 A115344 * A115346 A115347 A115348

Keyword

nonn,base

Author

Zak Seidov, Apr 02 2006

Status

approved