This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A136522 a(n) = 1 if n is a palindrome, otherwise 0. 36
 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS a(A002113(n)) = 1; a(A029742(n)) = 0. a(n) = A202022(n) for n <= 100, a(101) = 1, A202022(101) = 0. - Reinhard Zumkeller, Dec 10 2011 LINKS Reinhard Zumkeller, Table of n, a(n) for n = 0..10000 FORMULA a(n) = if A004086(n) = n then 1 else 0. - Reinhard Zumkeller, Apr 08 2011 a(n) = A000007(A064834(n)). - Reinhard Zumkeller, Sep 18 2013 MATHEMATICA fQ[n_]:=Module[{id=IntegerDigits[n]}, Boole[id==Reverse[id]]]; Array[fQ, 100] (* Vladimir Joseph Stephan Orlovsky, Dec 29 2010 *) Table[If[PalindromeQ[n], 1, 0], {n, 0, 120}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 23 2019 *) PROG (Haskell) a136522 n = fromEnum \$ n == a004086 n  -- Reinhard Zumkeller, Apr 08 2011 CROSSREFS Cf. A002113, A136687, A137180. Cf. A178225. Sequence in context: A209929 A105586 A202022 * A188641 A086299 A131364 Adjacent sequences:  A136519 A136520 A136521 * A136523 A136524 A136525 KEYWORD nonn,base AUTHOR N. J. A. Sloane, Apr 21 2008 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 19 21:17 EDT 2019. Contains 328229 sequences. (Running on oeis4.)