|
%I #15 Apr 10 2020 15:29:10
%S 4,6,7,19,30,175,265,591,1124,1369,4359,10935,20422,20559,26993
%N Iccanobirt prime indices (1 of 15): Indices of prime numbers in A102111.
%C No more terms through 8000.
%C a(16) > 50000. - _Robert Price_, Nov 07 2018
%F A102111(a(n)) = A102151(n).
%t a[n_] := a[n] = a[n - 1] + a[n - 2] + IntegerReverse[a[n - 3]];
%t a[0] = 0; a[1] = 0; a[2] = 1;
%t Select[Range[0, 5000], PrimeQ[a[#]] &] (* _Robert Price_, Apr 10 2020 *)
%Y Cf. A000040, A102111, A102132-A102145.
%K nonn,more,base
%O 1,1
%A _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E a(12)-a(15) from _Robert Price_, Nov 07 2018
|
