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.

A029950 Odd palindromes.

This page as a plain text file.
%I A029950 #32 Aug 11 2024 14:41:30
%S A029950 1,3,5,7,9,11,33,55,77,99,101,111,121,131,141,151,161,171,181,191,303,
%T A029950 313,323,333,343,353,363,373,383,393,505,515,525,535,545,555,565,575,
%U A029950 585,595,707,717,727,737,747,757,767,777,787,797,909,919,929,939,949
%N A029950 Odd palindromes.
%C A029950 There are more odd palindromes (A328332) less than 10^K than even palindromes (A328333) because odd palindromes begin with 1, 3, 5, 7 or 9 while even palindromes begin only with 2, 4, 6 or 8. - _Bernard Schott_, Oct 24 2019
%H A029950 Philip Mizzi, <a href="/A029950/b029950.txt">Table of n, a(n) for n = 1..7110</a> (terms up to 20000000).
%H A029950 P. De Geest, <a href="https://www.worldofnumbers.com/index.html">World!Of Numbers</a>
%H A029950 <a href="/index/Pac#palindromes">Index entries for sequences related to palindromes</a>
%t A029950 palindromicQ[n_,b_:10]:=TrueQ[IntegerDigits[n, b]==Reverse[IntegerDigits[n, b]]];Select[Range[1, 10^4, 2], palindromicQ[#]&&Plus@@Drop[DigitCount[#], {1, 10, 1}]==0&] (* _Vincenzo Librandi_, Feb 07 2014 *)
%t A029950 Select[Range[1,949,2],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 15 2017 *)
%o A029950 (PARI) lista(nn) = {forstep(n=1, nn, 2, if (is_A002113(n), print1(n, ", ")));} \\ _Michel Marcus_, Feb 06 2014
%Y A029950 Subsequence of A002113.
%Y A029950 Cf. A029951 (even palindromes), A328332, A328333.
%K A029950 nonn,base
%O A029950 1,2
%A A029950 _Patrick De Geest_
%E A029950 Offset set to 1 and more terms from _Michel Marcus_, Feb 06 2014