login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A047916 Triangular array read by rows: a(n,k) = phi(n/k)*(n/k)^k*k! if k|n else 0 (1<=k<=n). 8
1, 2, 2, 6, 0, 6, 8, 8, 0, 24, 20, 0, 0, 0, 120, 12, 36, 48, 0, 0, 720, 42, 0, 0, 0, 0, 0, 5040, 32, 64, 0, 384, 0, 0, 0, 40320, 54, 0, 324, 0, 0, 0, 0, 0, 362880, 40, 200, 0, 0, 3840, 0, 0, 0, 0, 3628800, 110, 0, 0, 0, 0, 0, 0, 0, 0, 0, 39916800, 48, 144 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

T(n,k) = A054523(n,k) * A010766(n,k)^A002260(n,k) *  A166350(n,k). - Reinhard Zumkeller, Jan 20 2014

REFERENCES

J. E. A. Steggall, On the numbers of patterns which can be derived from certain elements, Mess. Math., 37 (1907), 56-61.

LINKS

Reinhard Zumkeller, Rows n = 1..125 of triangle, flattened

C. L. Mallows and N. J. A. Sloane, Notes on A002618, A002619, etc.

N. J. A. Sloane, Notes on A002618, A002619, etc.

J. E. A. Steggall, On the numbers of patterns which can be derived from certain elements, Mess. Math., 37 (1907), 56-61.

J. E. A. Steggall, On the numbers of patterns which can be derived from certain elements, Mess. Math., 37 (1907), 56-61. [Annotated scanned copy. Note that the scanned pages are out of order]

EXAMPLE

1; 2,2; 6,0,6; 8,8,0,24; 20,0,0,0,120; 12,36,48,0,0,720; ...

MATHEMATICA

a[n_, k_] := If[Divisible[n, k], EulerPhi[n/k]*(n/k)^k*k!, 0]; Flatten[ Table[ a[n, k], {n, 1, 12}, {k, 1, n}]] (* Jean-Fran├žois Alcover, May 04 2012 *)

PROG

(Haskell)

import Data.List (zipWith4)

a047916 n k = a047916_tabl !! (n-1) !! (k-1)

a047916_row n = a047916_tabl !! (n-1)

a047916_tabl = zipWith4 (zipWith4 (\x u v w -> x * v ^ u * w))

               a054523_tabl a002260_tabl a010766_tabl a166350_tabl

-- Reinhard Zumkeller, Jan 20 2014

(PARI) a(n, k)=if(n%k, 0, eulerphi(n/k)*(n/k)^k*k!) \\ Charles R Greathouse IV, Feb 09 2017

CROSSREFS

A064649 gives the row sums.

Cf. A002618 (left edge), A000142 (right edge), A049820 (zeros per row), A000005 (nonzeros per row).

See also A247917, A047918, A047919.

Sequence in context: A127649 A274440 A199220 * A101207 A186435 A260297

Adjacent sequences:  A047913 A047914 A047915 * A047917 A047918 A047919

KEYWORD

nonn,tabl,nice,easy

AUTHOR

N. J. A. Sloane

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 10 00:05 EDT 2020. Contains 333392 sequences. (Running on oeis4.)