cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A162195 Sum of proper divisors of n-th nonprime number A018252(n).

This page as a plain text file.
%I A162195 #7 Dec 15 2017 14:32:47
%S A162195 0,3,6,7,4,8,16,10,9,15,21,22,11,14,36,6,16,13,28,42,31,15,20,13,55,
%T A162195 22,17,50,54,40,33,26,76,8,43,21,46,66,17,64,23,32,108,34,41,63,19,78,
%U A162195 58,27,74,123,40,49,64,19,90,106,40,44,140,23,46,33,92,144,21,76,35,50,25
%N A162195 Sum of proper divisors of n-th nonprime number A018252(n).
%C A162195 The k-th positive integer of this sequence is equal to the sum of proper divisors of k-th composite number A002808(k).
%F A162195 a(n) = A001065(A018252(n)).
%t A162195 NonPrime[n_Integer] := FixedPoint[n + PrimePi@# &, n + PrimePi@n]; f[n_] := Block[{m = NonPrime@n}, DivisorSigma[1, m] - m]; Array[f, 71] (* _Robert G. Wilson v_, Aug 17 2009 *)
%t A162195 Table[If[PrimeQ[n],-1,Total[Most[Divisors[n]]]],{n,100}]/.(-1->Nothing) (* _Harvey P. Dale_, Dec 15 2017 *)
%Y A162195 Cf. A001065, A018252, A002808, A162194, A162196.
%K A162195 easy,nonn
%O A162195 1,2
%A A162195 _Omar E. Pol_, Jul 04 2009
%E A162195 a(17) and further terms from _Robert G. Wilson v_, Aug 17 2009