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 A102135 #15 Oct 23 2024 10:25:17
%S A102135 4,6,7,19,46,613,1146,1500,1982,2590,7278,13714,15929
%N A102135 Iccanobirt prime indices (5 of 15): Indices of prime numbers in A102115.
%C A102135 No more terms through 5000.
%C A102135 a(14) > 50000. - _Robert Price_, Nov 08 2018
%F A102135 A102115(a(n)) = A102155(n).
%t A102135 a[n_] := a[n] =
%t A102135 IntegerReverse[a[n - 1]] + a[n - 2] + IntegerReverse[a[n - 3]];
%t A102135 a[0] = 0; a[1] = 0; a[2] = 1;
%t A102135 Select[Range[0, 5000], PrimeQ[a[#]] &] (* _Robert Price_, Apr 10 2020 *)
%t A102135 nxt[{a_,b_,c_}]:={b,c,Total[IntegerReverse[{a,c}]]+b};Flatten[Position[NestList[nxt,{0,0,1},2600][[;;,1]],_?PrimeQ]]-1 (* The program generates the first 10 terms of the sequence. *) (* _Harvey P. Dale_, Oct 23 2024 *)
%Y A102135 Cf. A000040, A102115, A102131-A102145.
%K A102135 nonn,more,base
%O A102135 1,1
%A A102135 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E A102135 a(11)-a(13) from _Robert Price_, Nov 08 2018