OFFSET
1,2
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..]
-- Reinhard Zumkeller, Jun 05 2013
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Amarnath Murthy, Nov 10 2002
EXTENSIONS
Corrected by Al Arnold, Jul 04, 2003
More terms from Ray Chandler, Jul 17 2003
STATUS
approved