cp's OEIS Frontend

A102145 Iccanobirt prime indices (15 of 15): Indices of prime numbers in A102125.

%I A102145 #13 Apr 10 2020 16:11:53
%S A102145 4,6,7,11,30,31,50,64,77,146,163,185,210,354,367,402,3137,3228,3639,
%T A102145 11756,22054,23126
%N A102145 Iccanobirt prime indices (15 of 15): Indices of prime numbers in A102125.
%C A102145 No more terms through 5000.
%C A102145 a(23) > 50000. - _Robert Price_, Nov 11 2018
%F A102145 A102125(a(n)) = A102165(n).
%t A102145 a[n_] := a[n] =
%t A102145    IntegerReverse[IntegerReverse[a[n - 1]] + IntegerReverse[a[n - 2]] +
%t A102145      IntegerReverse[a[n - 3]]];
%t A102145 a[0] = 0; a[1] = 0; a[2] = 1;
%t A102145 Select[Range[0, 5000], PrimeQ[a[#]] &] (* _Robert Price_, Apr 10 2020 *)
%Y A102145 Cf. A000040, A102125, A102131-A102144.
%K A102145 nonn,more,base
%O A102145 1,1
%A A102145 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004
%E A102145 a(20)-a(22) from _Robert Price_, Nov 11 2018