A122499 - OEIS

This site is supported by donations to The OEIS Foundation.

A122499

Semiprimes in A006053.

4, 9, 14, 155, 2993, 9707, 184183, 331981, 1942071, 1263047761, 140390505643 (list; graph; refs; listen; history; internal format)

	OFFSET	`1,1`
	MATHEMATICA	`SemiprimeQ[n_Integer] := Plus @@ (Last /@ FactorInteger[n]) == 2 a = Table[ SeriesCoefficient[ Series[x/(x^3 - 2*x^2 - x + 1), {x, 0, 50}], n], {n, 0, 50}] f[n_] = If[SemiprimeQ[a[[n]]] == True, a[[n]], {}] Flatten[Table[f[n], {n, 1, Length[a]}]]`
	CROSSREFS	`Cf. A006054, A006053.` `Sequence in context: A095169 A105703 A055453 * A143709 A010446 A189388` `Adjacent sequences: A122496 A122497 A122498 * A122500 A122501 A122502`
	KEYWORD	`nonn`
	AUTHOR	`Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 15 2006`
	EXTENSIONS	`Edited by N. J. A. Sloane (njas(AT)research.att.com), Serp 17 2006`

Content is available under The OEIS End-User License Agreement .

Last modified February 15 07:22 EST 2012. Contains 205706 sequences.