A246517 Indices of primes in A141036.

0, 5, 14, 26, 33, 222, 234, 482, 937, 1170, 1290, 1877, 1897, 3413, 6017, 9365, 47470, 48254, 97421, 102057, 119689, 132418, 192517, 194442

Offset: 1

Author

Robert Price, Aug 28 2014

Keywords

• nonn

Comments

a(25) > 2*10^5.

A141036(a(n)) = A246518(n).

Links

• Tony D. Noe and Jonathan Vos Post, Primes in Fibonacci n-step and Lucas n-step Sequences, J. of Integer Sequences, Vol. 8 (2005), Article 05.4.4

Crossrefs

Cf. A001590, A100683, A231574, A231575, A232542, A214899, A230607, A020992, A232498, A214727, A081172, A214752, A141523, A214825, A235862, A214827-A214829, A243622, A243623, A214831, A141036.

Cf. A049084.

Programs

Haskell

a246517 n = a246517_list !! (n-1)
a246517_list = filter ((== 1) . a010051'' . a141036) [0..]
-- Reinhard Zumkeller, Sep 15 2014

Mathematica

a={2,1,1}; Print[0]; For[n=3, n<=1000, n++, sum=Plus@@a; If[PrimeQ[sum], Print[n]]; a=RotateLeft[a]; a[[3]]=sum]