login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325420 Complement of A325419. 5

%I #11 May 09 2019 12:22:58

%S 3,5,6,9,12,15,17,21,23,24,27,29,30,33,37,39,41,42,45,48,51,53,54,57,

%T 60,63,65,66,69,71,73,75,77,78,81,84,87,89,93,95,96,99,101,102,105,

%U 108,111,113,114,117,119,120,123,125,129,132,135,137,138,141,145

%N Complement of A325419.

%C These are the numbers 2x+1 and 3x as x ranges through the numbers in A325419.

%H Clark Kimberling, <a href="/A325420/b325420.txt">Table of n, a(n) for n = 1..10000</a>

%t a = {1}; Do[AppendTo[a, NestWhile[# + 1 &, Last[a] + 1, Apply[Or,

%t Map[MemberQ[a, #] &, Select[Flatten[{#/3, (# - 1)/2}],

%t IntegerQ]]] &]], {150}]; a; (* A325419 *)

%t Complement[Range[Last[a]], a]; (* A325420 *)

%t (* _Peter J. C. Moses_, Apr 23 2019 *)

%Y Cf. A325417, A325419.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 28 2019

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 01:36 EDT 2024. Contains 371264 sequences. (Running on oeis4.)