cp's OEIS Frontend

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.

A278160 Least number with the prime signature of ((n+1)^2 - 1).

This page as a plain text file.
%I A278160 #17 Nov 22 2016 21:47:30
%S A278160 2,8,6,24,6,48,12,48,12,120,6,120,30,96,30,288,6,360,30,120,30,240,12,
%T A278160 240,72,120,24,840,6,960,30,192,210,360,30,360,30,240,30,1680,6,840,
%U A278160 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
%N A278160 Least number with the prime signature of ((n+1)^2 - 1).
%H A278160 Antti Karttunen, <a href="/A278160/b278160.txt">Table of n, a(n) for n = 1..1024</a>
%F A278160 a(n) = A046523(A005563(n)) = A046523(((n+1)^2)-1).
%t A278160 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 *)
%o A278160 (Scheme)
%o A278160 (define (A278160 n) (A046523 (A005563 n)))
%o A278160 (define (A005563 n) (* n (+ 2 n)))
%Y A278160 Cf. A005563, A046523.
%Y A278160 Cf. A001359 (positions of 6's).
%Y A278160 Cf. also A278240, A278242, A278253, A278254, A278162.
%K A278160 nonn
%O A278160 1,1
%A A278160 _Antti Karttunen_, Nov 19 2016