A105757
Prime Fibonacci 5-step numbers, A001591.
Original entry on oeis.org
2, 31, 61, 5976577, 1989179797398599794811479787771439644489521, 11241696329548911284929550459702062135838997526529, 73666302576706758839299120422550197113618385815703101
Offset: 1
Cf.
A105756 (indices of prime Fibonacci 5-step numbers).
-
a={1, 0, 0, 0, 0}; lst={}; Do[s=Plus@@a; a=RotateLeft[a]; a[[ -1]]=s; If[PrimeQ[s], AppendTo[lst, s]], {n, 1000}]; lst
A105758
Indices of prime hexanacci (or Fibonacci 6-step) numbers A001592 (using offset -4).
Original entry on oeis.org
3, 36, 37, 92, 660, 6091, 8415, 11467, 13686, 38831, 49828, 97148
Offset: 1
Cf.
A000045,
A000073,
A000078 (and
A001631),
A001591,
A122189 (or
A066178),
A079262,
A104144,
A122265,
A168082,
A168083 (Fibonacci, tribonacci, tetranacci numbers and other generalizations).
-
a={1, 0, 0, 0, 0, 0}; lst={}; Do[s=Plus@@a; a=RotateLeft[a]; a[[ -1]]=s; If[PrimeQ[s], AppendTo[lst, n]], {n, 30000}]; lst
A248757
Indices of prime Fibonacci 5-step numbers, A001591.
Original entry on oeis.org
6, 10, 11, 28, 149, 172, 185, 754, 815, 1510, 1594, 3160, 3755, 10654, 12743, 71807, 155957
Offset: 1
-
a = {0, 0, 0, 0, 1}; For[n = 5, n ≤ 1000, n++, sum = Plus @@ a;
If[PrimeQ[sum], Print[n]]; a = RotateLeft[a]; a[[5]] = sum]
A303264
Indices of primes in tetranacci sequence A000078.
Original entry on oeis.org
5, 9, 13, 14, 38, 58, 403, 2709, 8419, 14098, 31563, 50698, 53194, 155184
Offset: 1
-
a(n,N=5,S=vector(N,i,i>N-2))={for(i=N,oo,ispseudoprime(S[i%N+1]=2*S[(i-1)%N+1]-S[i%N+1])&&!n--&&return(i))}
Showing 1-4 of 4 results.
Comments