|
|
A077558
|
|
Triangle in which the n-th 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 !! (k-1)
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
|
|
|
|