|
| |
|
|
A060791
|
|
a(n) = n / GCD(n,5).
|
|
7
| |
|
|
1, 2, 3, 4, 1, 6, 7, 8, 9, 2, 11, 12, 13, 14, 3, 16, 17, 18, 19, 4, 21, 22, 23, 24, 5, 26, 27, 28, 29, 6, 31, 32, 33, 34, 7, 36, 37, 38, 39, 8, 41, 42, 43, 44, 9, 46, 47, 48, 49, 10
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
LINKS
| Harry J. Smith, Table of n, a(n) for n=1,...,1000
|
|
|
FORMULA
| G.f.: (x+2x^2+3x^3+4x^4+x^5+4x^6+3x^7+2x^8+x^9) / (1-x^5)^2
a(n)=n/5 if 5|n otherwise a(n)=n.
a(n) = A109046(n)/5. Dirichlet g.f. zeta(s-1)*(1-4/5^s). - R. J. Mathar, Apr 18 2011
|
|
|
MATHEMATICA
| f[n_]:=Numerator[n/(n+5)]; Array[f, 100] (*From Vladimir Joseph Stephan Orlovsky, Feb 16 2011*)
|
|
|
PROG
| (Other) sage: [lcm(n, 5)/5for n in xrange(1, 51)] # [From Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), Jun 07 2009]
(PARI) { for (n=1, 1000, write("b060791.txt", n, " ", n / gcd(n, 5)); ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Jul 12 2009]
(PARI) for (n=1, 1000, print1(n/(5-4*(n%5>0))", ")) [From Zak Seidov, Feb 17 2011]
|
|
|
CROSSREFS
| Sequence in context: A109680 A072438 A132739 * A116912 A030104 A049563
Adjacent sequences: A060788 A060789 A060790 * A060792 A060793 A060794
|
|
|
KEYWORD
| nonn,mult
|
|
|
AUTHOR
| Len Smiley (smiley(AT)math.uaa.alaska.edu), Apr 26 2001
|
| |
|
|
