login
A278160
Least number with the prime signature of ((n+1)^2 - 1).
4
2, 8, 6, 24, 6, 48, 12, 48, 12, 120, 6, 120, 30, 96, 30, 288, 6, 360, 30, 120, 30, 240, 12, 240, 72, 120, 24, 840, 6, 960, 30, 192, 210, 360, 30, 360, 30, 240, 30, 1680, 6, 840, 60, 120, 60, 480, 12, 1440, 60, 360, 30, 1080, 30, 2160, 210, 240, 30, 840, 6, 840, 60, 384, 420, 1920, 30, 840, 30, 840, 30, 5040, 6, 720, 60, 120, 420, 840, 30, 3360, 48, 480, 48
OFFSET
1,1
LINKS
FORMULA
a(n) = A046523(A005563(n)) = A046523(((n+1)^2)-1).
MATHEMATICA
Table[Times @@ MapIndexed[(Prime@ First@ #2)^#1 &, #] &@ If[Length@ # == 1 && #[[1, 1]] == 1, {0}, Reverse@ Sort@ #[[All, -1]]] &@ FactorInteger[ (n + 1)^2 - 1], {n, 120}] (* Michael De Vlieger, Nov 21 2016 *)
PROG
(Scheme)
(define (A278160 n) (A046523 (A005563 n)))
(define (A005563 n) (* n (+ 2 n)))
CROSSREFS
Cf. A001359 (positions of 6's).
Sequence in context: A373411 A100871 A111860 * A069895 A370925 A085590
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 19 2016
STATUS
approved