A064919 - OEIS

%I #9 Jun 19 2018 05:15:20

%S 2,3,6,5,10,7,14,16,18,11,22,13,26,28,30,17,34,19,38,40,42,23,46,48,

%T 50,52,54,29,58,31,62,64,66,68,70,37,74,76,78,41,82,43,86,88,90,47,94,

%U 96,98,100,102,53,106,108,110,112,114,59,118,61,122,124,126,128,130,67

%N a(n) = Min { k | A064916(k) = n }.

%C A064916(a(n)) = n.

%H Harry J. Smith, <a href="/A064919/b064919.txt">Table of n, a(n) for n = 2..1000</a>

%F For n > 2: a(n) = if n is prime then n else 2*n - 2.

%o (PARI) lpf(n)= { local(f); f=factor(n); return(f[1, 1]) } { for (n=2, 1000, k=1; until (m==n, k++; L=lpf(k); m=k / L + L - 1); write("b064919.txt", n, " ", k) ) } \\ _Harry J. Smith_, Sep 29 2009

%Y Cf. A064916, A064923, A064924.

%K nonn

%O 2,1

%A _Reinhard Zumkeller_, Oct 14 2001