A140214 a(n) = Product_{h == 5 (mod 6) and h|n} h.

1, 1, 1, 1, 5, 1, 1, 1, 1, 5, 11, 1, 1, 1, 5, 1, 17, 1, 1, 5, 1, 11, 23, 1, 5, 1, 1, 1, 29, 5, 1, 1, 11, 17, 175, 1, 1, 1, 1, 5, 41, 1, 1, 11, 5, 23, 47, 1, 1, 5, 17, 1, 53, 1, 55, 1, 1, 29, 59, 5, 1, 1, 1, 1, 325, 11, 1, 17, 23, 175, 71, 1, 1, 1, 5, 1, 847, 1, 1, 5, 1, 41, 83, 1, 85, 1, 29, 11

Offset

1,5

Comments

Not multiplicative: a(5)*a(7) <> a(35). - R. J. Mathar, Oct 08 2011

Links

Table of n, a(n) for n=1..88.

Maple

A140214 := proc(n) a := 1 ; for h in numtheory[divisors](n) do if (h mod 6) = 5 then a := a*h: fi; od: a; end:
seq(A140214(n), n=1..120) ; # R. J. Mathar, Jun 24 2009

Crossrefs

Sequence in context: A170818 A046622 A170825 * A343431 A366374 A071020

Adjacent sequences: A140211 A140212 A140213 * A140215 A140216 A140217

Keyword

nonn,easy

Author

R. J. Mathar, Jun 27 2008

Status

approved