|
%I #11 Aug 14 2017 22:47:42
%S 7,77,616,6776,88088,616616,232464232,21154245112,232696696232,
%T 21175399357112,21154245133154245112,232696696464696696232,
%U 21175399378287399357112,63386501441764911946714410568336
%N a(1) = 7; a(n) = smallest palindromic multiple of a(n-1).
%t a[1] = 7; a[n_] := a[n] = Block[{k = 2}, While[k*a[n - 1] != ToExpression[ StringReverse[ ToString[k*a[n - 1]]]], k++ ]; k*a[n - 1]]; Table[a[n], {n, 1, 14}]
%Y Cf. A068664 (from a(6) on) and this sequence (from a(3) on) coincide.
%Y Cf. A068664, A068665, A068666, A068668, A070069, A068971, A068972, A068973, A068974.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Mar 01 2002
%E Last two terms from _David W. Wilson_, _Sascha Kurz_ and edited by _Patrick De Geest_, Mar 30 2002
|
