Search: id:A000026 Results 1-1 of 1 results found. %I A000026 M0467 N0171 %S A000026 1,2,3,4,5,6,7,6,6,10,11,12,13,14,15,8,17,12,19,20,21,22,23,18,10,26,9, %T A000026 28,29,30,31,10,33,34,35,24,37,38,39,30,41,42,43,44,30,46,47,24,14,20, %U A000026 51,52,53,18,55,42,57,58,59,60,61,62,42,12,65,66,67,68,69,70,71,36 %N A000026 Mosaic numbers or multiplicative projection of n. %C A000026 a(n)=n if n is square-free. %D A000026 R. A. Gillman, The Average Size of a Certain Arithmetic Function, A6660 solution, Amer. Math. Monthly 100 (1993) 296-298. %D A000026 B. Gordon and M. M. Robertson, A theorem on mosaics, Canad. J. Math., 17 (1965), 1010-1014. %D A000026 A. A. Mullin, Some related number-theoretic functions, Research Problem 4, Bull. Amer. Math. Soc., 69 (1963), 446-447. %D A000026 N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence). %D A000026 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A000026 T. D. Noe, Table of n, a(n) for n = 1..10000 %F A000026 n = Product (p_j^k_j) -> a(n) = Product (p_j * k_j). %F A000026 Multiplicative with a(p^e) = p*e. - David W. Wilson (davidwwilson(AT)comcast.net), Aug 01, 2001. %e A000026 24 = 2^3*3^1, a(24)=2*3*3*1=18. %t A000026 Array[ Times@@Flatten[ FactorInteger[ # ] ]&, 100 ] %o A000026 (PARI) a(n)=local(f); if(n<1,0,f=factor(n); prod(k=1,matsize(f)[1],f[k, 1]*f[k,2])) %Y A000026 Sequence in context: A112264 A017872 A161209 this_sequence A005599 A071934 A161658 %Y A000026 Adjacent sequences: A000023 A000024 A000025 this_sequence A000027 A000028 A000029 %K A000026 nonn,easy,nice,mult %O A000026 1,2 %A A000026 N. J. A. Sloane (njas(AT)research.att.com). %E A000026 Example, program, definition, comments and more terms added by Olivier Gerard (02/99). Search completed in 0.002 seconds