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,2

Comments

a(25) > 2*10^5.

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

Links

Table of n, a(n) for n=1..24.

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

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]

Prog

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

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.

Sequence in context: A018829 A332623 A070133 * A306886 A202821 A301689

Adjacent sequences: A246514 A246515 A246516 * A246518 A246519 A246520

Keyword

nonn

Author

Robert Price, Aug 28 2014

Status

approved