login
a(n) = n^n written backwards.
1

%I #19 Dec 06 2024 21:43:44

%S 1,4,72,652,5213,65664,345328,61277761,984024783,1,116076113582,

%T 6528440016198,352295601578203,61085552860021111,573958083098398734,

%U 61615590737044764481,771467633688162042728,42457573569257080464393

%N a(n) = n^n written backwards.

%H Harry J. Smith, <a href="/A062018/b062018.txt">Table of n, a(n) for n = 1..200</a>

%F a(n) = A004086(n^n).

%e a(5) = 5213, as 5^5 = 3125.

%p with(numtheory):for n from 1 to 50 do a := convert(n^n,base,10):b := add(10^(nops(a)- i)*a[i],i=1..nops(a)):printf(`%d,`,b); od:

%t Table[IntegerReverse[n^n],{n,20}] (* _Harvey P. Dale_, Jul 31 2022 *)

%o (PARI) a(n) = { fromdigits(Vecrev(digits( n^n )))} \\ _Harry J. Smith_, Jul 29 2009

%Y Cf. A004086, A004093, A004156, A034906, A004094, A004167, A002108, A002118, A002138, A002140, A002232, A002239, A002241, A002942, A004165, A004087, A004091, A004096, A004098, A004150, A004153.

%K nonn,base,easy

%O 1,2

%A _Amarnath Murthy_, Jun 01 2001

%E More terms from _Jason Earls_ and _Vladeta Jovovic_, Jun 01 2001