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.

A083136 a(n+1) is the smallest palindrome greater than a(n) and relatively prime to a(n).

This page as a plain text file.
%I A083136 #21 May 09 2021 19:24:30
%S A083136 1,2,3,4,5,6,7,8,9,11,101,111,121,131,141,151,161,171,181,191,202,313,
%T A083136 323,333,343,353,363,373,383,393,404,515,606,727,737,747,757,767,777,
%U A083136 787,797,808,919,929,939,949,959,969,979,989,999,1001,10001,10101,10201
%N A083136 a(n+1) is the smallest palindrome greater than a(n) and relatively prime to a(n).
%C A083136 Subsequence of A002113. - _Michel Marcus_, May 25 2014
%C A083136 Contains at most one 2k-digit number for every k, since all such palindromes are divisible by 11. - _Ivan Neretin_, Aug 12 2015
%H A083136 Giovanni Resta, <a href="/A083136/b083136.txt">Table of n, a(n) for n = 1..10000</a>
%t A083136 spal[n_]:=Module[{k=n+1},While[!PalindromeQ[k]||!CoprimeQ[k,n],k++];k]; NestList[spal,1,60] (* _Harvey P. Dale_, May 09 2021 *)
%o A083136 (PARI) ispal(n) = my(d=digits(n)); d == Vecrev(d);
%o A083136 lista(nn) = {print1(last = 1, ", "); for (n=2, nn, if (ispal(n) && gcd(n, last)== 1, print1(n, ", "); last = n;););} \\ _Michel Marcus_, Aug 12 2015
%Y A083136 Cf. A002113, A081939.
%K A083136 base,easy,nonn
%O A083136 1,2
%A A083136 _Amarnath Murthy_ and Meenakshi Srikanth (menakan_s(AT)yahoo.com), Apr 24 2003
%E A083136 More terms from _David Wasserman_, Oct 19 2004