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.

A280946 Numbers n such that n and number of proper divisors (A032741) of n are relatively prime and n is a nonprime (A018252).

This page as a plain text file.
%I A280946 #12 Jan 14 2017 07:46:40
%S A280946 1,8,9,10,12,14,18,22,24,25,26,28,30,32,34,35,38,40,44,46,49,52,54,55,
%T A280946 58,60,62,63,65,66,68,72,74,76,77,78,80,81,82,84,85,86,88,90,91,92,94,
%U A280946 95,96,98,99,102,104,106,108,110,112,114,115,116,117,118,119,121,122,124,125,126,128,130,133,134,135,136,138
%N A280946 Numbers n such that n and number of proper divisors (A032741) of n are relatively prime and n is a nonprime (A018252).
%C A280946 Numbers n such that A125168(n) = 1 and A010051(n) = 0.
%C A280946 Numbers n such that gcd(n,A032741(n)) = 1 and A000005(n) != 2.
%H A280946 Vincenzo Librandi, <a href="/A280946/b280946.txt">Table of n, a(n) for n = 1..3000</a>
%e A280946 12 is in the sequence because 12 is a nonprime, 12 has 5 proper divisors {1, 2, 3, 4, 6} and gcd(12,5) = 1.
%t A280946 Select[Range[139], CoprimeQ[#1, DivisorSigma[0, #1] - 1] && !PrimeQ[#1] & ]
%t A280946 Select[Range[139], GCD[#1, DivisorSigma[0, #1] - 1] == 1 && DivisorSigma[0, #1] != 2 &]
%o A280946 (PARI) isok(n) = gcd(n, numdiv(n)-1) == 1; \\ _Michel Marcus_, Jan 14 2017
%Y A280946 Cf. A000005, A003624, A010051, A014567, A032741, A046642, A125168.
%K A280946 nonn,easy
%O A280946 1,2
%A A280946 _Ilya Gutkovskiy_, Jan 11 2017