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.
%I A102133 #14 Nov 08 2018 03:23:51
%S A102133 4,6,7,25,30,50,100,657,3158,3369,3441,17549,19234
%N A102133 Iccanobirt prime indices (3 of 15): Indices of prime numbers in A102113.
%C A102133 No more terms through 5000.
%C A102133 No more terms through 6000. - _Harvey P. Dale_, Sep 10 2016
%C A102133 a(14) > 50000. - _Robert Price_, Nov 07 2018
%F A102133 A102113(a(n)) = A102153(n).
%t A102133 nxt[{a_, b_, c_}] := {b, c, c + IntegerReverse[b] + IntegerReverse[a]}; Flatten[Position[NestList[nxt,{0,0,1},3500][[All,1]],_?PrimeQ]]-1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 10 2016 *)
%Y A102133 Cf. A000040, A102113, A102131-A102145.
%K A102133 nonn,more,base
%O A102133 1,1
%A A102133 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E A102133 a(12)-a(13) from _Robert Price_, Nov 07 2018