%I A000015
%S A000015 1,2,3,4,5,7,7,8,9,11,11,13,13,16,16,16,17,19,19,23,23,23,23,25,25,27,
%T A000015 27,29,29,31,31,32,37,37,37,37,37,41,41,41,41,43,43,47,47,47,47,49,49,
%U A000015 53,53,53,53,59,59,59,59,59,59,61,61,64,64,64,67,67,67,71,71,71,71,73
%N A000015 Smallest prime power >= n.
%H A000015 David W. Wilson, <a href="b000015.txt">Table of n, a(n) for n = 1..10000</
               a>
%t A000015 Insert[Table[m:=n;While[Not[Length[FactorInteger[m]]==1],m++ ];m,{n,2,
               100}], 1, 1] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Apr 17 2006
%o A000015 (PARI) a(n)=if(n<1,0, while(matsize(factor(n))[1]>1,n++); n)
%o A000015 (Other) sage: [next_prime_power(n) for n in xrange(0, 72)] # [From Zerinvary 
               Lajos (zerinvarylajos(AT)yahoo.com), Jun 13 2009]
%Y A000015 Cf. A000961, A031218.
%Y A000015 Sequence in context: A076034 A034152 A114707 this_sequence A122411 A117174 
               A022473
%Y A000015 Adjacent sequences: A000012 A000013 A000014 this_sequence A000016 A000017 
               A000018
%K A000015 nonn
%O A000015 1,2
%A A000015 N. J. A. Sloane (njas(AT)research.att.com).
%E A000015 More terms from Michael Somos, Jul 16 2002