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.

A072510 Numbers n with property that n = product of first k divisors of n for some k.

This page as a plain text file.
%I A072510 #16 May 20 2017 21:27:27
%S A072510 1,2,3,5,6,7,8,10,11,13,14,15,17,19,21,22,23,24,26,27,29,30,31,33,34,
%T A072510 35,37,38,39,40,41,43,46,47,51,53,55,56,57,58,59,61,62,64,65,67,69,70,
%U A072510 71,73,74,77,79,82,83,85,86,87,89,91,93,94,95,97,101,103,105,106,107
%N A072510 Numbers n with property that n = product of first k divisors of n for some k.
%C A072510 Contains all prime numbers, numbers with two different prime factors... First 37 terms are the same as that of A036537. 54 is member of A036537, but it is not member of this sequence. 64 is member of this sequence but not of A036537. - _Vladimir Baltic_, Aug 03 2002
%H A072510 Harvey P. Dale, <a href="/A072510/b072510.txt">Table of n, a(n) for n = 1..10000</a>
%e A072510 8 is a member as 8 = 1*2*4. but 9 is not as the divisors of 9 are 1,3,9 and 9 is not a partial product.
%t A072510 Select[Range[110],MemberQ[FoldList[Times,1,Divisors[#]],#]&] (* _Harvey P. Dale_, Jan 01 2014 *)
%o A072510 (PARI) isok(n) = {d = divisors(n); pr = 1; for(k=1, #d, pr *= d[k]; if (pr == n, return(1)););} \\ _Michel Marcus_, May 19 2017
%K A072510 nonn
%O A072510 1,2
%A A072510 _Amarnath Murthy_, Jul 22 2002
%E A072510 More terms from _Vladimir Baltic_, Aug 03 2002