OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[300], MemberQ[Differences[Select[Divisors[#], #>1&]], 1]&] (* Harvey P. Dale, Apr 03 2011 *)
PROG
(Haskell)
a088723 n = a088723_list !! (n-1)
a088723_list = filter f [2..] where
f x = 1 `elem` (zipWith (-) (tail divs) divs)
where divs = tail $ a027750_row x
-- Reinhard Zumkeller, Dec 16 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 12 2003
EXTENSIONS
Extended by Ray Chandler, May 29 2008
STATUS
approved