

A072967


Least k>n such that the last digit of k^k is the same as the last digit of n^n.


0



11, 18, 17, 6, 15, 8, 13, 12, 19, 20, 21, 14, 27, 16, 25, 24, 23, 22, 29, 30, 31, 38, 37, 26, 35, 28, 33, 32, 39, 40, 41, 34, 47, 36, 45, 44, 43, 42, 49, 50, 51, 58, 57, 46, 55, 48, 53, 52, 59, 60, 61, 54, 67, 56, 65, 64, 63, 62, 69, 70, 71, 78, 77, 66, 75, 68, 73, 72, 79, 80
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA

a(n)=n+b(n) where b(n) is a periodic sequence with period (10, 16, 14, 2, 10, 2, 6, 4, 10, 10, 10, 2, 14, 2, 10, 8, 6, 4, 10, 10, 10) of length 21


MATHEMATICA

lkld[n_]:=Module[{ldn=Mod[n^n, 10], k=n+2}, While[Mod[k^k, 10]!=ldn, k=k+2]; k]; Array[lkld, 70] (* Harvey P. Dale, Feb 15 2015 *)


PROG

(PARI) a(n)=if(n<0, 0, s=n+1; while(abs(s^s%10n^n%10)>0, s++); s)


CROSSREFS



KEYWORD

base,easy,nonn


AUTHOR



STATUS

approved



