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.

A083478 a(n) is the smallest k > 0 such that k*Palindrome(n)+1 is a palindrome.

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