%I A064917
%S A064917 2,3,3,5,3,7,5,5,3,11,7,13,5,7,5,17,3,19,11,5,7,23,13,5,5,11,7,29,5,31,
%T A064917 17,13,3,11,19,37,11,7,5,41,7,43,23,17,13,47,5,13,5,19,11,53,7,7,29,5,
%U A064917 5,59,31,61,17,23,13,17,3,67,11,5,19,71,37,73,11,11,7,17,5,79,41,29,7
%N A064917 Iterate A064916 until a prime is reached.
%C A064917 Well defined since A064916(n) < n for nonprimes.
%C A064917 a(p) = p for all primes p.
%H A064917 Harry J. Smith, <a href="b064917.txt">Table of n, a(n) for n=2,...,1000</
               a>
%H A064917 Michael Gilleland, <a href="selfsimilar.html">Some Self-Similar Integer 
               Sequences</a>
%e A064917 a(6) = 3 as A064916(6) = 4 and A064916(4) = 3.
%o A064917 (PARI) lpf(n)= { local(f); f=factor(n); return(f[1, 1]) } { for (n=2, 
               1000, m=n; while (!isprime(m), L=lpf(m); m=m / L + L - 1); write("b064917.txt", 
               n, " ", m) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), 
               Sep 29 2009]
%Y A064917 A064916, A064918, A064921.
%Y A064917 Sequence in context: A152864 A152984 A064921 this_sequence A154727 A065070 
               A070800
%Y A064917 Adjacent sequences: A064914 A064915 A064916 this_sequence A064918 A064919 
               A064920
%K A064917 nonn
%O A064917 2,1
%A A064917 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Oct 14 2001