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 A102134 #14 Nov 08 2018 19:06:35
%S A102134 4,6,7,22,32,48,58,61,80,85,119,136,150,184,420,591,878,2447,30938
%N A102134 Iccanobirt prime indices (4 of 15): Indices of prime numbers in A102114.
%C A102134 No more terms through 5000.
%C A102134 No more terms through 7500. From _Harvey P. Dale_, May 30 2012
%C A102134 a(20) > 50000. - _Robert Price_, Nov 08 2018
%F A102134 A102114(a(n)) = A102154(n).
%t A102134 nxt[{a_,b_,c_}]:={b,c,FromDigits[Reverse[IntegerDigits[c]]]+b+a}; Flatten[ Position[Transpose[NestList[nxt,{0,0,1},2500]][[1]],_?PrimeQ]-1] (* _Harvey P. Dale_, May 30 2012 *)
%Y A102134 Cf. A000040, A102114, A102131-A102145.
%K A102134 nonn,more,base
%O A102134 1,1
%A A102134 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E A102134 a(19) from _Robert Price_, Nov 08 2018