A101759 - OEIS

%I #15 Aug 24 2022 17:38:33

%S 3,4,5,7,13,39,51,65,254,315,361,423,1109,1497,1701,3711,3814,3847

%N Iccanobif prime indices: Indices of prime numbers in A001129.

%C No more terms through 10^4.

%t nxt[{a_,b_}]:={b,Total[IntegerReverse[{a,b}]]};Flatten[Position[NestList[nxt,{0,1},4000][[All,1]],_?PrimeQ]]-1 (* _Harvey P. Dale_, Aug 24 2022 *)

%o (PARI) a=0; b=1; for(n=2,3999, ispseudoprime(b=A004086(a)+A004086(a=b))&print1(n", ")) \\ _M. F. Hasler_, Jan 14 2011

%Y Cf. A000040, A001129, A014258-A014260, A101760-A101762.

%K nonn,more,base

%O 1,1

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