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

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

Offset: 1

Author

Amarnath Murthy, Nov 10 2002

Keywords

• nonn
• tabl

Examples

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

Crossrefs

Cf. A077559.

Cf. A046523.

Programs

Haskell

import Data.List (genericTake)
a077558 n k = a077558_row n !! (k-1)
a077558_row n = n : genericTake (n - 1)
                    (filter ((== a046523 n) . a046523) [n + 1 ..])
a077558_tabf = map a077558_row [1..]
-- Reinhard Zumkeller, Jun 05 2013

Extensions

Corrected by Al Arnold, Jul 04 2003

More terms from Ray Chandler, Jul 17 2003