login
This site is supported by donations to The OEIS Foundation.

 

Logo

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A220063 Decades whose semiprime pattern is the same as semiprime pattern in the previous decade. 8
104, 389, 435, 438, 529, 658, 884, 1110, 1183, 1533, 1548, 1557, 1669, 1799, 1824, 1825, 1915, 1993, 2011, 2076, 2085, 2153, 2313, 2355, 2372, 2617, 2628, 2648, 2673, 3204, 3234, 3258, 3280, 3295, 3373, 3415, 3513, 3601, 3636, 3906, 3931, 3936, 4125, 4154 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

This is to 10 and semiprimes A001358 as A219996 is to 100 and primes A000040. The first decade (1,2,3,4,5,6,7,8,9,10) has a unique pattern, as no decade ending with a multiple k*10 for k>1 ends with a semiprime; so it does not matter whether 10 is at the beginning or the end of a decade.

LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000

FORMULA

a(n) ~ n. In particular there are x - 200x log log x/log x + O(x/log x) members of this sequence below x. - Charles R Greathouse IV, Dec 11 2012

a(n) = A277459(n) + 2 = A277460(n) + 1. - Bobby Jacobs, Oct 27 2016

EXAMPLE

a(1) = 104 because the decade (1030..1039) has the same semiprime pattern as the previous decade: (1020..1029), namely that each has only a single semiprime, respectively 1027 = 13 * 79 and 1037 = 17 * 61.

MATHEMATICA

SemiPrimeQ[n_Integer] := If[Abs[n] < 2, False, (2 == Plus @@ Transpose[FactorInteger[Abs[n]]][[2]])]; nn = 50000; s = Table[SemiPrimeQ[n], {n, nn}]; t = Partition[s, 10]; t2 = {}; Do[If[t[[i]] == t[[i - 1]], AppendTo[t2, i]], {i, 2, Length[t]}]; t2 (* T. D. Noe, Dec 11 2012 *)

semiPrimeQ[n_] := PrimeOmega@ n == 2; f[n_] := semiPrimeQ@# & /@ (10 n + Range@9); a = f[0]; k = 1; lst = {}; While[k < 10001, b = f[k]; If[a == b, AppendTo[lst, k]]; a = b; k++]; lst (* Robert G. Wilson v, Dec 11 2012 *)

CROSSREFS

Cf. A001358, A219996, A277459, A277460.

Sequence in context: A046298 A258556 A185763 * A135441 A188150 A234227

Adjacent sequences:  A220060 A220061 A220062 * A220064 A220065 A220066

KEYWORD

nonn,base

AUTHOR

Jonathan Vos Post, Dec 10 2012

EXTENSIONS

All terms from T. D. Noe, Dec 11 2012, and (with 1 already added to each) all terms after the first from Robert G. Wilson v, by email to Jonathan Vos Post).

Example corrected by Bobby Jacobs, Sep 28 2016

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 19 08:57 EDT 2017. Contains 290794 sequences.