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

Search: id:a025477
Showing 1-1 of 1

%I A025477 #23 Oct 24 2023 04:41:04
%S A025477 0,2,3,2,4,2,3,5,2,6,4,2,3,7,2,5,8,2,3,2,9,2,4,6,2,2,10,3,2,2,2,11,7,
%T A025477 3,2,4,2,5,2,2,12,2,3,2,2,2,8,3,2,2,13,2,2,2,2,2,3,2,4,6,2,14,5,2,2,2,
%U A025477 9,2,2,3,2,2,2,4,3,2,2,2,15,2,2,2,2,2,2,3,2,2,2,2,2,10,2,16,2,3,2,2,2,2,7,2,3,2
%N A025477 a(n) = exponent of the n-th nontrivial prime power A025475(n).
%H A025477 Michael De Vlieger, <a href="/A025477/b025477.txt">Table of n, a(n) for n = 1..10000</a>
%F A025477 a(n) = A051903(A025475(n)) = A001222(A025475(n)). - _Reinhard Zumkeller_, Mar 10 2003
%t A025477 With[{nn = 2^20}, {0}~Join~Map[FactorInteger[#][[1, -1]] &, Select[Union@ Flatten@ Table[a^2*b^3, {b, nn^(1/3)}, {a, Sqrt[nn/b^3]}], PrimePowerQ] ] ] (* _Michael De Vlieger_, Oct 23 2023 *)
%Y A025477 Cf. A001222, A025475, A051903.
%K A025477 easy,nonn
%O A025477 1,2
%A A025477 _David W. Wilson_
%E A025477 Edited by _N. J. A. Sloane_, Jan 17 2009 at the suggestion of _R. J. Mathar_
%E A025477 Name edited by _Michael De Vlieger_, Oct 23 2023

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