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 A102160 #14 Aug 14 2021 13:14:42 %S A102160 2,7,31,977,8311,6303211,376085401,243108206127601, %T A102160 797617957269902814324298809066990611, %U A102160 13986539709338184569448604343396198783632139863691161608206506541 %N A102160 Iccanobirt primes (10 of 15): Prime numbers in A102120. %C A102160 Next term is too large to include. %C A102160 The next term has 407 digits. - _Harvey P. Dale_, Oct 30 2017 %F A102160 a(n) = A102120(A102140(n)). %t A102160 nxt[{a_,b_,c_}]:={b,c,IntegerReverse[c+IntegerReverse[b]+a]}; Select[ NestList[nxt,{0,0,1},200][[All,1]],PrimeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 30 2017 *) %Y A102160 Cf. A000040, A102120, A102140, A102151-A102165. %K A102160 nonn,base,less %O A102160 1,1 %A A102160 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004 %E A102160 Offset changed to 1 by _Jinyuan Wang_, Aug 14 2021