The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Sep 28 2020 01:04:04
%S 1,2,3,4,5,6,8,9,10,12,13,15,16,18,20,24,25,26,27,30,32,36,39,40,45,
%T 48,50,52,54,60,64,65,72,75,78,80,81,89,90,96,100,104,108,117,120,125,
%U 128,130,135,144,150,156,160,162,169,178,180,192,195,200
%N All primes dividing each term are Fibonacci numbers.
%H Amiram Eldar, <a href="/A068095/b068095.txt">Table of n, a(n) for n = 1..10000</a>
%F Sum_{n>=1} 1/a(n) = Product_{p in A005478} p/(p-1) = 4.12911211011314367889... - _Amiram Eldar_, Sep 27 2020
%e 26 = 2 * 13 is a term since 2 and 13 are both primes and Fibonacci numbers.
%t p = Fibonacci[{2, 3, 4, 5, 7, 11, 13}]; Select[Range[p[[-1]]], AllTrue[ FactorInteger[#][[;; , 1]], MemberQ[p, #] &] &] (* _Amiram Eldar_, Sep 27 2020 *)
%Y Cf. A000045, A001605, A005478.
%K nonn,easy
%O 1,2
%A _Leroy Quet_, Mar 22 2002
%E a(1)=1 added and offset corrected by _Amiram Eldar_, Sep 27 2020