A082744 - OEIS

%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