A286476 Compound filter: a(n) = 6*A032742(n) + (n mod 6), a(1) = 1.

1, 8, 9, 16, 11, 18, 7, 26, 21, 34, 11, 36, 7, 44, 33, 52, 11, 54, 7, 62, 45, 70, 11, 72, 31, 80, 57, 88, 11, 90, 7, 98, 69, 106, 47, 108, 7, 116, 81, 124, 11, 126, 7, 134, 93, 142, 11, 144, 43, 152, 105, 160, 11, 162, 67, 170, 117, 178, 11, 180, 7, 188, 129, 196, 83, 198, 7, 206, 141, 214, 11, 216, 7, 224, 153, 232, 71, 234, 7, 242, 165, 250, 11, 252, 103

Offset

1,2

Links

Antti Karttunen, Table of n, a(n) for n = 1..10000

Formula

a(1) = 1, for n > 1, a(n) = 6*A032742(n) + (n mod 6).

Mathematica

With[{k = 6}, Table[If[n == 1, 1, k (Divisors[n][[-2]]) + Mod[n, k]], {n, 85}]] (* Michael De Vlieger, May 12 2017 *)

Prog

(Scheme) (define (A286476 n) (if (= 1 n) n (+ (* 6 (A032742 n)) (modulo n 6))))
(Python)
from sympy import divisors
def a(n): return 1 if n==1 else 6*divisors(n)[-2] + n%6 # Indranil Ghosh, May 12 2017

Crossrefs

Cf. A032742, A285729, A286472, A286473, A286474, A286475.

Sequence in context: A292188 A301659 A265221 * A265732 A047393 A241263

Adjacent sequences: A286473 A286474 A286475 * A286477 A286478 A286479

Keyword

nonn

Author

Antti Karttunen, May 11 2017

Status

approved