A102142 - OEIS

%I #12 Apr 10 2020 15:59:58

%S 4,6,7,12,19,30,37,67,93,109,297,341,602,1377,1745,1972,4208,7942,

%T 9572,10409,11927,12707,13460,33803

%N Iccanobirt prime indices (12 of 15): Indices of prime numbers in A102122.

%C No more terms through 5000.

%C a(25) > 50000. - _Robert Price_, Nov 10 2018

%F A102122(a(n)) = A102162(n).

%t a[n_] := a[n] =

%t    IntegerReverse[IntegerReverse[a[n - 1]] + a[n - 2] + 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, A102122, A102131-A102145.

%K nonn,more,base

%O 1,1

%A _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004

%E a(18)-a(24) from _Robert Price_, Nov 10 2018