This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A028234 #44 Nov 19 2022 04:44:17
%S A028234 1,1,1,1,1,3,1,1,1,5,1,3,1,7,5,1,1,9,1,5,7,11,1,3,1,13,1,7,1,15,1,1,
%T A028234 11,17,7,9,1,19,13,5,1,21,1,11,5,23,1,3,1,25,17,13,1,27,11,7,19,29,1,
%U A028234 15,1,31,7,1,13,33,1,17,23,35,1,9,1,37,25,19,11,39,1,5,1,41,1,21
%N A028234 If n = p_1^e_1 * ... * p_k^e_k, p_1 < ... < p_k primes, then a(n) = n/p_1^e_1, with a(1) = 1.
%C A028234 Together with A067029 is useful for defining sequences that are multiplicative with a(p^e) = f(e), as recurrences of the form: a(1) = 1 and for n > 1, a(n) = f(A067029(n)) * a(A028234(n)). - _Antti Karttunen_, May 29 2017
%H A028234 Reinhard Zumkeller, <a href="/A028234/b028234.txt">Table of n, a(n) for n = 1..10000</a>
%F A028234 a(n) = n / A028233(n).
%F A028234 A001221(a(n)) = A001221(n)-1; A001222(a(n)) = A001222(n)-A067029(n). - _Reinhard Zumkeller_, May 13 2006
%F A028234 Sum_{k=1..n} a(k) ~ c * n^2, where c = (1/2) * Sum_{k>=0} A005867(k)/(prime(k+1)*(prime(k+1)+1)*A002110(k)) = 0.114813... . - _Amiram Eldar_, Nov 19 2022
%t A028234 a[n_] := n / Power @@ First[FactorInteger[n]]; Table[a[n], {n, 1, 84}] (* _Jean-François Alcover_, Jun 12 2012 *)
%o A028234 (Haskell)
%o A028234 a028234 n = n `div` a028233 n -- _Reinhard Zumkeller_, Mar 27 2013
%o A028234 (PARI) a(n) = {my(f = factor(n)); if (#f~, f[1, 1] = 1); factorback(f);} \\ _Michel Marcus_, Feb 11 2016
%o A028234 (Python)
%o A028234 from sympy import factorint
%o A028234 def a(n):
%o A028234 f = factorint(n)
%o A028234 return 1 if n==1 else n/(min(f)**f[min(f)]) # _Indranil Ghosh_, May 12 2017
%o A028234 (Scheme) (define (A028234 n) (/ n (A028233 n))) ;; Needs also code from A020639 and A028233. - _Antti Karttunen_, May 29 2017
%o A028234 (GAP) a := List(List(List(List([1..10^3], Factors), Collected), i -> i[1]), j -> j[1]^j[2]);;
%o A028234 A028234 := List([1..Length(a)],i->i/a[i]); # _Muniru A Asiru_, Jan 27 2018
%Y A028234 Cf. A001221, A001222, A002110, A005867, A020639, A028233, A067029.
%K A028234 nonn,nice,easy
%O A028234 1,6
%A A028234 _Marc LeBrun_
%E A028234 Edited name to include a(1) = 1 by _Franklin T. Adams-Watters_, Jan 27 2018