|
%I #4 Feb 12 2014 01:03:45
%S 1,2,2,2,2,4,2,2,4,4,6,2,4,8,4,4,4,4,2,10,8,4,8,4,8,12,4,6,6,8,4,12,4,
%T 4,12,16,8,4,8,4,8,16,8,4,2,6,12,4,20,4,12,12,8,4,8,12,4,20,4,8,4,24,
%U 24,8,4,8,12,4,4,16,10,2,12,12,4,12,8,4,12
%N Number of occurrences of n-th prime power in A188666.
%H Reinhard Zumkeller, <a href="/A237709/b237709.txt">Table of n, a(n) for n = 1..10000</a>
%e A188666: 1 2 2 3 3 4 4 5 5 7 7 7 7 8 8 9 9 11 11 11 11 13 13 13 13 16 ...
%e A237709: 1 2 2 2 2 4 2 2 4 4
%o (Haskell)
%o import Data.List (group)
%o a237709 n = a237709_list !! (n-1)
%o a237709_list = map length $ group a188666_list
%Y Cf. A000961, A138929.
%K nonn
%O 1,2
%A _Reinhard Zumkeller_, Feb 12 2014
|
