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.

A036328 Composite numbers n such that juxtaposition of prime factors of n has length 4.

This page as a plain text file.
%I A036328 #12 Feb 21 2019 23:16:50
%S A036328 16,24,36,40,44,52,54,56,60,66,68,76,78,81,84,90,92,99,100,102,110,
%T A036328 114,116,117,121,124,126,130,135,138,140,143,148,150,153,154,164,165,
%U A036328 169,170,171,172,174,182,186,187,188,189,190,195,196,202,206,207,209,210
%N A036328 Composite numbers n such that juxtaposition of prime factors of n has length 4.
%C A036328 The last term of this sequence is a(1048)=9409.
%C A036328 Prime factors are taken with multiplicity. - _Harvey P. Dale_, Dec 05 2015
%H A036328 Nathaniel Johnston, <a href="/A036328/b036328.txt">Table of n, a(n) for n = 1..1048</a> (full sequence)
%p A036328 isA036328 := proc(n) local d: d:=ifactors(n)[2]: return `if`(not isprime(n) and add(length(d[j][1])*d[j][2], j=1..nops(d))=4, n, NULL): end: l:=[seq(isA036328(n),n=2..9999)]; # _Nathaniel Johnston_, Jun 22 2011
%t A036328 jpf4Q[n_]:=Length[Flatten[IntegerDigits/@Table[#[[1]],{#[[2]]}]&/@FactorInteger[n]]]==4; Select[Range[300],jpf4Q] (* _Harvey P. Dale_, Dec 05 2015 *)
%Y A036328 Cf. A036326-A036334.
%K A036328 nonn,base,fini,full,easy
%O A036328 1,1
%A A036328 _Patrick De Geest_, Dec 15 1998