A102134 - OEIS

%I #14 Nov 08 2018 19:06:35

%S 4,6,7,22,32,48,58,61,80,85,119,136,150,184,420,591,878,2447,30938

%N Iccanobirt prime indices (4 of 15): Indices of prime numbers in A102114.

%C No more terms through 5000.

%C No more terms through 7500.  From _Harvey P. Dale_, May 30 2012

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

%F A102114(a(n)) = A102154(n).

%t nxt[{a_,b_,c_}]:={b,c,FromDigits[Reverse[IntegerDigits[c]]]+b+a}; Flatten[ Position[Transpose[NestList[nxt,{0,0,1},2500]][[1]],_?PrimeQ]-1] (* _Harvey P. Dale_, May 30 2012 *)

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

%K nonn,more,base

%O 1,1

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

%E a(19) from _Robert Price_, Nov 08 2018