A102140 - OEIS

%I #12 Nov 10 2018 09:56:13

%S 4,6,7,11,12,20,25,45,113,193,1214,1272,2435,4007,12258,12771,14166,

%T 27368,29184

%N Iccanobirt prime indices (10 of 15): Indices of prime numbers in A102120.

%C No more terms through 5000.

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

%F A102120(a(n)) = A102160(n).

%t b[0] = b[1] = 0; b[2] = 1; b[n_] := b[n] = IntegerReverse[b[n - 1] + IntegerReverse[b[n - 2]] + b[n - 3]];

%t Reap[Do[If[PrimeQ[b[n]], Print[n]; Sow[n]], {n, 5000}]][[2, 1]] (* _Jean-François Alcover_, Dec 15 2017 *)

%Y Cf. A000040, A102120, A102131-A102145.

%K nonn,more,base

%O 1,1

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

%E a(15)-a(19) from _Robert Price_, Nov 10 2018