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 A102141 #13 Apr 10 2020 15:56:42 %S A102141 4,6,7,15,25,51,126,171,311,358,865,1850,3311,4686,7893,8249,17795, %T A102141 27176,48728 %N A102141 Iccanobirt prime indices (11 of 15): Indices of prime numbers in A102121. %C A102141 No more terms through 5000. %C A102141 a(20) > 50000. - _Robert Price_, Nov 10 2018 %F A102141 A102121(a(n)) = A102161(n). %t A102141 a[n_] := a[n] = %t A102141 IntegerReverse[a[n - 1] + IntegerReverse[a[n - 2]] + IntegerReverse[a[n - 3]]]; %t A102141 a[0] = 0; a[1] = 0; a[2] = 1; %t A102141 Select[Range[0, 5000], PrimeQ[a[#]] &] (* _Robert Price_, Apr 10 2020 *) %Y A102141 Cf. A000040, A102121, A102131-A102145. %K A102141 nonn,more,base %O A102141 1,1 %A A102141 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004 %E A102141 a(15)-a(19) from _Robert Price_, Nov 10 2018