OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harvey P. Dale)
Eric Weisstein's World of Mathematics, Almost Prime.
Eric Weisstein's World of Mathematics, Octagonal Number.
FORMULA
Numbers k such that k*(3*k-2) has exactly six prime factors (with multiplicity).
Numbers k such that [(3*k-2)*(3*k-1)*(3*k)]/[(3*k-2)+(3*k-1)+(3*k)] is a term of A046306.
EXAMPLE
a(1) = 6 because OctagonalNumber(6) = Oct(6) = 6*(3*6-2) = 96 = 2^5 * 3 has exactly 6 prime factors (five are all equally 2; factors need not be distinct).
a(2) = 14 because Oct(14) = 14*(3*14-2) = 560 = 2^4 * 5 * 7 is 6-almost prime.
a(3) = 16 because Oct(16) = 16*(3*16-2) = 736 = 2^5 * 23.
a(7) = 40 because Oct(40) = 40*(3*40-2) = 4720 = 2^4 * 5 * 59 [also, 4720 = Oct(40) = Oct(Oct(4)), an iterated octagonal number].
a(19) = 100 because Oct(100) = 100*(3*100-2) = 29800 = 2^3 * 5^2 * 149.
MATHEMATICA
Flatten[Position[Table[n(3n-2), {n, 400}], _?(PrimeOmega[#]==6&)]] (* Harvey P. Dale, Jun 17 2013 *)
Select[Range[400], PrimeOmega[PolygonalNumber[8, #]]==6&] (* Harvey P. Dale, Feb 23 2022 *)
PROG
(PARI) is(n)=my(t=bigomega(3*n-2)); t<6 && (t<5 || !isprime(n)) && t+bigomega(n)==6 \\ Charles R Greathouse IV, Feb 01 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jonathan Vos Post, Feb 17 2006
STATUS
approved