A045640 Duplicate of A043040.
5, 55, 505, 515, 525, 535, 545, 555, 565, 575, 585, 595, 5005, 5115, 5225
Offset: 1
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.
palindromicQ[n_, b_:10] := TrueQ[IntegerDigits[n, b] == Reverse[IntegerDigits[n, b]]]; Select[Range[2, 10^4, 2], palindromicQ[#] &] (* Alonso del Arte, Feb 23 2012 *) Select[Range[0, 2222, 2], PalindromeQ] (* Michael De Vlieger, May 12 2017, Version 10.3 *)
Select[Range[0, 5500, 11], PalindromeQ] (* Paolo Xausa, Jul 07 2025 *)
forstep(k=0, 10^5, 11, d=digits(k); d==Vecrev(d) && print1(k, ", ")) \\ Jeppe Stig Nielsen, May 08 2020
Select[Range[0, 21000, 7], PalindromeQ] (* Paolo Xausa, Jul 06 2025 *)
Select[Range[0,5500,3],PalindromeQ] (* Harvey P. Dale, Apr 14 2023 *)
palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; Select[4*Range[0, 6000],palQ] (* Harvey P. Dale, Jan 30 2011 *)
palQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]];Select[ 8Range[0,3500],palQ] (* Harvey P. Dale, Jun 06 2011 *) Select[8*Range[0, 3500],PalindromeQ] (* Harvey P. Dale, Feb 17 2023 *)
Select[9*Range[0,3000],PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 30 2020 *)
Select[Range[0,30000,6], PalindromeQ] (* Paolo Xausa, Jul 06 2025 *)
Select[Range[175], Mod[#, 10] > 0 && And @@ Divisible[#, IntegerDigits[#][[{1, -1}]]] &] (* Amiram Eldar, Jan 29 2021 *)
is(n) = n%10>0 && n%(n%10)==0 && n % (n\10^logint(n,10)) == 0 \\ David A. Corneth, Jan 29 2021
def ok(n): s = str(n); return s[-1] != '0' and n%int(s[0])+n%int(s[-1]) == 0 print([m for m in range(180) if ok(m)]) # Michael S. Branicky, Jan 29 2021
Comments