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.

A070001 Palindromic integers > 0, whose 'Reverse and Add!' trajectory (presumably) does not lead to another palindrome.

This page as a plain text file.
%I A070001 #8 Mar 30 2012 17:27:34
%S A070001 4994,8778,9999,11811,19591,22822,23532,23632,23932,24542,24742,24842,
%T A070001 24942,26362,27372,29792,29892,33933,34543,34743,34943,39493,44744,
%U A070001 46064,46164,46364,46564,46964,47274,47574,48284,48584,48684,48884
%N A070001 Palindromic integers > 0, whose 'Reverse and Add!' trajectory (presumably) does not lead to another palindrome.
%C A070001 The computation of a trajectory was stopped when in 1000 steps no further palindrome appeared. Subsequence of A002113 and of A023108.
%H A070001 <a href="/index/Res#RAA">Index entries for sequences related to Reverse and Add!</a>
%e A070001 The initial terms of the trajectory of the palindromic integer 8778 are 8778, 17556, 83127 and 83127 is the third term in the trajectory of 7059 (see A063057) which (presumably) never leads to a palindrome (see A063048), so 8778 is in the present sequence.
%o A070001 (PARI) {stop=1000; for(k=1,50000,m=k; c=0; p=1; while(c<stop&&p==1,n=m; rev=0; while(n>0,d=divrem(n,10); n=d[1]; rev=10*rev+d[2]); if(m==k&&rev!=m,p=0); if(m>k&&rev==m,p=0); m=m+rev; c++); if(c==stop&&p==1,print1(k,",")))}
%Y A070001 Cf. A002113, A023108, A063057, A063048.
%K A070001 base,nonn
%O A070001 1,1
%A A070001 _Klaus Brockhaus_, May 06 2002