|
%I #7 Nov 05 2015 10:35:08
%S 3,5,13,89,233,1597,514229,99194853094755497,
%T 19134702400093278081449423917
%N Fibonacci prime numbers f, 3*f+2 are also primes.
%C 3*3+2=11, 3*5+2=17, 3*13+2=41, ...
%t a={};Do[f=Fibonacci[n];If[PrimeQ[f],If[PrimeQ[3*f+2],AppendTo[a,f]]],{n,4*6!}];a
%o (Python)
%o from gmpy2 import is_prime
%o A155012_list = []
%o a, b, a2, b2 = 0, 1, 2, 5
%o for _ in range(10**3):
%o if is_prime(b) and is_prime(b2):
%o A155012_list.append(b)
%o a, b, a2, b2 = b, a+b, b2, a2+b2-2 # _Chai Wah Wu_, Nov 04 2015
%Y Cf. A005478, A000045, A005384, A155011
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 18 2009
|
