|
|
A239673
|
|
Record values in A239656 (the first differences of sphenic numbers).
|
|
4
|
|
|
12, 24, 27, 28, 33, 35, 43, 44, 46, 48, 50
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
PROG
|
(Haskell)
a239673 n = a239673_list !! (n-1)
(a239673_list, a239674_list) = unzip $ (12, 1) : f 1 12 a239656_list where
f i v (q:qs) | q > v = (q, i) : f (i + 1) q qs
| otherwise = f (i + 1) v qs
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|