This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A068667 #13 Feb 07 2025 14:55:32 %S A068667 7,77,616,6776,88088,616616,232464232,21154245112,232696696232, %T A068667 21175399357112,21154245133154245112,232696696464696696232, %U A068667 21175399378287399357112,63386501441764911946714410568336 %N A068667 a(1) = 7; a(n) = smallest palindromic multiple of a(n-1). %t A068667 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}] %t A068667 NestList[Module[{k=2},While[!PalindromeQ[k #],k++];k #]&,7,10] (* The program generates the first 11 terms of the sequence. *) (* _Harvey P. Dale_, Feb 07 2025 *) %Y A068667 Cf. A068664 (from a(6) on) and this sequence (from a(3) on) coincide. %Y A068667 Cf. A068664, A068665, A068666, A068668, A070069, A068971, A068972, A068973, A068974. %K A068667 base,nonn %O A068667 1,1 %A A068667 _Amarnath Murthy_, Mar 01 2002 %E A068667 Last two terms from _David W. Wilson_, _Sascha Kurz_ and edited by _Patrick De Geest_, Mar 30 2002