|
%I #12 Sep 05 2019 11:13:02
%S 6,12,18,20,21,33,36,48,51,54,55,60,75,78,87,99,100,108,110,112,114,
%T 120,129,132,133,144,147,153,154,155,159,162,165,174,177,180,182,183,
%U 185,195,210,219,225,228,230,234,237,245,261,267,270,275,285,290,297,310
%N Indices of Lucas 5-step numbers A074048 which have a nontrivial divisor in common with index.
%C Extension by _T. D. Noe_. Wanted: closed-form formula for this as exists for Fibonacci and Lucas numbers. See also A105764 (indices of prime Lucas 5-step numbers).
%H Amiram Eldar, <a href="/A105289/b105289.txt">Table of n, a(n) for n = 1..10000</a>
%F gcd(a(n), A074048(a(n))) > 1.
%e gcd(6, A074048(6)) = gcd(6,57) = 3,
%e gcd(20, A074048(20)) = gcd(20,743775) = 5.
%e gcd(21, A074048(21)) = gcd(21,1462223) = 7.
%t m=300; s = LinearRecurrence[{1, 1, 1, 1, 1}, {5, 1, 3, 7, 15}, m+1]; Select[Range[m], !CoprimeQ[#, s[[#+1]]] &] (* _Amiram Eldar_, Sep 05 2019 *)
%Y Cf. A074048, A104714, A105764.
%K easy,nonn
%O 1,1
%A _Jonathan Vos Post_, Apr 25 2005
%E More terms from _Amiram Eldar_, Sep 05 2019
|
