|
%I #3 Dec 05 2013 19:56:13
%S 1,1,1,1,1,1,1,1,6,1,10,10,5,7,8,2,10,3,4,5,1,5,14,5,4,5,2,5,3,4,12,1,
%T 7,5,4,5,30,2,8,3,14,12,1,8,4,7,9,30,2,2,17,6,200,1,2,7,6,16,7,2,20,6,
%U 8,265,1,9,3,8,7,2,421,7,8,15,2,1,3,4,12,2,74,7,4,6,2,135,1,4,6,2,11000,8
%N Smallest k such that nk + 1 is a palindrome.
%t f[n_] := Block[{k = 1}, While[ FromDigits[ Reverse[ IntegerDigits[k*n + 1]]] != k*n + 1, k++ ]; k]; Table[ f[n], {n, 1, 92}]
%Y Cf. A082743.
%K base,nonn
%O 1,9
%A _Amarnath Murthy_, Apr 15 2003
%E Edited and extended by _Robert G. Wilson v_, Apr 19 2003
|
