login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A304569 Triangle read by rows: T(n,k) = 1 if k | n^e with e >= 0, otherwise T(n,k) = 0 (1 <= k <= n). 3
1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0 (list; table; graph; refs; listen; history; text; internal format)
OFFSET

1

COMMENTS

Row n of A162306 contains indices of 1 in this sequence.

A010846(n) = total of row n in this sequence.

Row p for p prime begins and ends with 1, but otherwise contains zeros; it is equivalent to row p of A051731.

Row n for n such that omega(n) = 1 is the same as row n of A051731.

All other rows have additional 1s at positions in row n of A272618.

LINKS

Michael De Vlieger, Table of n, a(n) for n = 1..11325 (rows 1 <= n <= 150)

Michael De Vlieger, Image of rows 1 <= n <= 2310,

EXAMPLE

Table begins:

1;

1, 1;

1, 0, 1;

1, 1, 0, 1;

1, 0, 0, 0, 1;

1, 1, 1, 1, 0, 1;

1, 0, 0, 0, 0, 0, 1;

1, 1, 0, 1, 0, 0, 0, 1;

1, 0, 1, 0, 0, 0, 0, 0, 1;

1, 1, 0, 1, 1, 0, 0, 1, 0, 1;

...

MATHEMATICA

Table[Array[Boole[PowerMod[n, Floor@ Log2@ n, #] == 0] &, n], {n, 13}] // Flatten

(* Second program: extended data in rows from PNG image above: first, download the PNG and save it as "a304569.png", provides 2669205 terms: *)

MapIndexed[Take[#1, First@ #2] &, ImageData@ ColorNegate@ Import["a304569.png", "PNG"]] (* Michael De Vlieger, May 23 2018 *)

PROG

(PARI) T(n, k) = {if (k==1, 1, my (f = factor(k)); sum(k=1, #f~, n % f[k, 1]) == 0); }

tabl(nn) = {for(n=1, nn, for(k=1, n, print1(T(n, k), ", "); ); print(); ); }; \\ Michel Marcus, May 23 2018

CROSSREFS

Cf. A010846, A051731, A162306, A243103, A244974, A272618.

Sequence in context: A174854 A103994 A051731 * A135839 A071022 A155076

Adjacent sequences:  A304566 A304567 A304568 * A304570 A304571 A304572

KEYWORD

nonn,easy,tabl

AUTHOR

Michael De Vlieger, May 15 2018

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 20 04:42 EDT 2019. Contains 322294 sequences. (Running on oeis4.)