|
%I #10 Jul 22 2020 11:38:20
%S 2,3,4,7,10,13,16,19,24,28,31,36,40,46,50,54,60,64,70,74,78,84,90,94,
%T 98,104,107,110,114,118,122,126,132,138,142,146,152,155,158,162,166,
%U 172,178,182,186,192,195,198,202,206,212,216,219,224,227,234,238
%N Numbers occurring only once in A063882.
%C A132157(a(n)) = 1.
%H Reinhard Zumkeller, <a href="/A202016/b202016.txt">Table of n, a(n) for n = 1..10000</a>
%o (Haskell)
%o import Data.List (elemIndices)
%o a202016 n = a202016_list !! (n-1)
%o a202016_list = map (+ 1) $ elemIndices 1 a132157_list
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Dec 08 2011
|
