

A077558


Triangle in which the nth row contains n numbers beginning with n that have the same prime signature as n.


3



1, 2, 3, 3, 5, 7, 4, 9, 25, 49, 5, 7, 11, 13, 17, 6, 10, 14, 15, 21, 22, 7, 11, 13, 17, 19, 23, 29, 8, 27, 125, 343, 1331, 2197, 4913, 6859, 9, 25, 49, 121, 169, 289, 361, 529, 841, 10, 14, 15, 21, 22, 26, 33, 34, 35, 38, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 12, 18, 20
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS



EXAMPLE

1; 2,3; 3,5,7; 4,9,25,49; 5,7,11,13,17; 6,10,14,15,21,22; ...


PROG

(Haskell)
import Data.List (genericTake)
a077558 n k = a077558_row n !! (k1)
a077558_row n = n : genericTake (n  1)
(filter ((== a046523 n) . a046523) [n + 1 ..])
a077558_tabf = map a077558_row [1..]


CROSSREFS



KEYWORD



AUTHOR



EXTENSIONS

Corrected by Al Arnold, Jul 04, 2003


STATUS

approved



