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.

A302496 Products of distinct primes of prime-power index.

This page as a plain text file.
%I A302496 #6 Apr 10 2018 21:48:10
%S A302496 1,2,3,5,6,7,10,11,14,15,17,19,21,22,23,30,31,33,34,35,38,41,42,46,51,
%T A302496 53,55,57,59,62,66,67,69,70,77,82,83,85,93,95,97,102,103,105,106,109,
%U A302496 110,114,115,118,119,123,127,131,133,134,138,154,155,157,159
%N A302496 Products of distinct primes of prime-power index.
%C A302496 A prime index of n is a number m such that prime(m) divides n.
%e A302496 Entry A302242 describes a correspondence between positive integers and multiset multisystems. In this case it gives the following sequence of constant-multiset systems.
%e A302496 01: {}
%e A302496 02: {{}}
%e A302496 03: {{1}}
%e A302496 05: {{2}}
%e A302496 06: {{},{1}}
%e A302496 07: {{1,1}}
%e A302496 10: {{},{2}}
%e A302496 11: {{3}}
%e A302496 14: {{},{1,1}}
%e A302496 15: {{1},{2}}
%e A302496 17: {{4}}
%e A302496 19: {{1,1,1}}
%e A302496 21: {{1},{1,1}}
%e A302496 22: {{},{3}}
%e A302496 23: {{2,2}}
%e A302496 30: {{},{1},{2}}
%e A302496 31: {{5}}
%e A302496 33: {{1},{3}}
%e A302496 34: {{},{4}}
%e A302496 35: {{2},{1,1}}
%e A302496 38: {{},{1,1,1}}
%t A302496 Select[Range[nn],Or[#===1,SquareFreeQ[#]&&And@@PrimePowerQ/@PrimePi/@DeleteCases[FactorInteger[#][[All,1]],2]]&]
%o A302496 (PARI) is(n) = if(bigomega(n)!=omega(n), return(0), my(f=factor(n)[, 1]~); for(k=1, #f, if(!isprimepower(primepi(f[k])) && primepi(f[k])!=1, return(0)))); 1 \\ _Felix Fröhlich_, Apr 10 2018
%Y A302496 Cf. A000961, A001222, A003963, A005117, A007716, A056239, A275024, A279786, A281113, A296131, A301767, A302242, A302243, A302493, A302494.
%K A302496 nonn
%O A302496 1,2
%A A302496 _Gus Wiseman_, Apr 09 2018