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 A083478 #12 Jul 22 2018 11:31:23 %S A083478 1,1,1,1,1,1,1,1,6,10,5,7,8,2,9,3,4,6,100,10,5,4,3,2,2,2,2,2,50,50,5, %T A083478 4,3,2,2,2,2,2,40,40,40,7,797,2,2,2,2,2,25,30,25,420,8,2,2,2,2,2,20, %U A083478 20,20,20,20,2,32,117,24,28,20,20,20,20,20,89,9,52,1870,150,20,20,20,20,20,85 %N A083478 a(n) is the smallest k > 0 such that k*Palindrome(n)+1 is a palindrome. %H A083478 Harvey P. Dale, <a href="/A083478/b083478.txt">Table of n, a(n) for n = 1..130</a> %F A083478 a(n) = (A083477(n)-1)/A002113(n). a(n) = A082744(A002113(n)). - _David Wasserman_, Nov 16 2004 %e A083478 a(11) = 5 because A002113(11) = 22 and 111 = 5*22+1. %t A083478 skpal[n_]:=Module[{k=1},While[!PalindromeQ[k*n+1],k++];k]; skpal/@Select[ Range[ 1000],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 22 2018 *) %Y A083478 Cf. A083477. %K A083478 base,nonn %O A083478 1,9 %A A083478 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 03 2003 %E A083478 Corrected and extended by _David Wasserman_, Nov 16 2004