|
%I #6 May 02 2018 11:19:10
%S 5,7,11,13,19,23,43,59,1033,3928413764606871166057,
%T 178890334785183168257455287892297,
%U 13598018856492162040239554477268823,505988662735923140767969869749836918999964413630219878131,162926777992448823780908130212788963731840407743629812914361
%N Primes of the form semiprime(n) + Fibonacci(n).
%t Module[{nn=3000,s,len,f},s=Select[Range[nn],PrimeOmega[#]==2&];len= Length[ s];Select[Total/@Thread[{s,Fibonacci[Range[len]]}],PrimeQ]] (* _Harvey P. Dale_, May 02 2018 *)
%Y Cf. A001358, A000045.
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Dec 06 2005
%E Index in definition corrected and 5 terms added by _R. J. Mathar_ Jun 28 2010
|
