|
|
A029950
|
|
Odd palindromes.
|
|
6
|
|
|
1, 3, 5, 7, 9, 11, 33, 55, 77, 99, 101, 111, 121, 131, 141, 151, 161, 171, 181, 191, 303, 313, 323, 333, 343, 353, 363, 373, 383, 393, 505, 515, 525, 535, 545, 555, 565, 575, 585, 595, 707, 717, 727, 737, 747, 757, 767, 777, 787, 797, 909, 919, 929, 939, 949
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
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
|
|
LINKS
|
|
|
MATHEMATICA
|
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 *)
Select[Range[1, 949, 2], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 15 2017 *)
|
|
PROG
|
(PARI) lista(nn) = {forstep(n=1, nn, 2, if (is_A002113(n), print1(n, ", "))); } \\ Michel Marcus, Feb 06 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|