A284889 Numbers n such that A279513(n) is a primorial number (A002110).
1, 2, 6, 8, 9, 30, 40, 45, 75, 96, 210, 250, 280, 315, 486, 525, 672, 735, 1750, 1920, 2310, 3080, 3402, 3430, 3465, 5775, 6125, 7392, 8085, 8575, 10976, 11907, 12705, 15625, 16000, 19250, 21120, 21870, 30030, 31104, 32768, 37422, 37730, 40040, 45045, 54675
Offset: 1
Keywords
Examples
1626625 = 5^3*7*11*13^2 appears in this sequence.
Links
- Rémy Sigrist, Table of n, a(n) for n = 1..500
- Rémy Sigrist, Illustration of the first terms
Programs
-
PARI
isprimorial(n) = if (n==1, 1, my (f=factor(n)); (#f~ == primepi(vecmax(f[,1]))) && (vecmax(f[,2]) == 1)); a279513(n) = my (f=factor(n)); prod(i=1, #f~, f[i, 1]*a279513(f[i, 2])); isok(n) = isprimorial(a279513(n)); \\ Michel Marcus, Apr 08 2017
Comments