# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a199423
Showing 1-1 of 1

%I A199423 #13 Dec 19 2020 10:35:47
%S A199423 3,5,7,3,11,13,7,17,19,7,23,5,13,29,31,11,17,37,19,41,43,11,47,7,17,
%T A199423 53,11,19,59,61,31,13,67,23,71,73,37,19,79,5,83,17,43,89,13,31,47,97,
%U A199423 11,101,103,13,107,109,37,113,23,29,59,11,61,31,127,43,131,19
%N A199423 Greatest prime factor of n and 2*n+1
%H A199423 Harvey P. Dale, <a href="/A199423/b199423.txt">Table of n, a(n) for n = 1..1000</a>
%F A199423 a(n) = A006530(A014105(n)).
%t A199423 Table[Max[Flatten[FactorInteger[{n,2 n+1}],1][[All,1]]],{n,70}] (* _Harvey P. Dale_, Mar 25 2020 *)
%o A199423 (PARI) gpf(n)=local(ps);if(n<2,n,ps=factor(n)[,1]~;ps[#ps])
%o A199423 vector(80,n,gpf(n*(2*n+1)))
%Y A199423 Cf. A006530, A014105, A074399, A093074, A076605.
%K A199423 nonn,easy
%O A199423 1,1
%A A199423 _Franklin T. Adams-Watters_, Nov 06 2011

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE