cp's OEIS Frontend

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.

A068667 a(1) = 7; a(n) = smallest palindromic multiple of a(n-1).

This page as a plain text file.
%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