|
%I #7 May 05 2013 20:14:16
%S 4,8,9,16,18,20,24,25,27,28,32,36,40,44,45,48,49,50,52,54,56,63,64,68,
%T 72,75,76,80,81,88,90,92,96,98,99,100,104,108,112,116,117,120,121,124,
%U 125,126,128,135,136,140,144,147,148,150,152,153,160,162,164
%N Numbers having no partition into distinct squarefree divisors.
%C A225245(a(n)) = 0.
%H Reinhard Zumkeller, <a href="/A225353/b225353.txt">Table of n, a(n) for n = 1..1000</a>
%o (Haskell)
%o import Data.List (elemIndices)
%o a225353 n = a225353_list !! (n-1)
%o a225353_list = map (+ 1) $ elemIndices 0 a225245_list
%Y Cf. A225354 (complement).
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, May 05 2013
|
