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.

A065211 Numbers which need six 'Reverse and Add' steps to reach a palindrome.

This page as a plain text file.
%I A065211 #13 Dec 06 2024 16:24:31
%S A065211 79,97,182,281,380,779,799,889,977,988,997,1069,1079,1159,1169,1249,
%T A065211 1259,1339,1349,1429,1439,1519,1529,1609,1619,1699,1709,1789,1799,
%U A065211 1879,1889,1896,1969,1979,1986,2059,2068,2078,2089,2149,2158,2168,2179,2239
%N A065211 Numbers which need six 'Reverse and Add' steps to reach a palindrome.
%C A065211 The number of steps starts at 0, so palindromes (cf. A002113) are excluded.
%C A065211 Numbers k such that A033665(k) = 6. - _Andrew Howroyd_, Dec 06 2024
%H A065211 Andrew Howroyd, <a href="/A065211/b065211.txt">Table of n, a(n) for n = 1..10000</a>
%H A065211 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%t A065211 palQ[n_] := Module[{idn = IntegerDigits[n]}, idn == Reverse[idn]]; pal6Q[ n_]:= Module[{c=NestList[#+FromDigits[Reverse[IntegerDigits[#]]]&, n,6]}, palQ/@c=={False,False,False,False,False,False,True}]; Select[Range[ 2300],pal6Q] (* _Harvey P. Dale_, Sep 09 2012 *)
%Y A065211 Cf. A002113, A015984, A033665, A065206.
%K A065211 nonn,base
%O A065211 1,1
%A A065211 _Klaus Brockhaus_, Oct 21 2001
%E A065211 Offset changed from 0 to 1 by _Harry J. Smith_, Oct 14 2009