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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325430 Complement of A325429. 5
3, 6, 7, 12, 13, 15, 16, 21, 24, 25, 27, 28, 30, 33, 34, 39, 42, 43, 46, 48, 51, 52, 54, 55, 57, 60, 61, 66, 67, 69, 70, 73, 75, 78, 79, 84, 87, 88, 93, 94, 96, 97, 102, 105, 106, 108, 111, 114, 115, 120, 121, 123, 124, 127, 129, 132, 133, 135, 136, 138, 141 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

These are the numbers 3x and floor(3x/2) as x ranges through the numbers x>1 in A325429.

LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000

MATHEMATICA

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

Map[MemberQ[a, #] &, Select[Flatten[{#/3,

If[Mod[#, 3] == 0, (2 #)/3, 0] + If[Mod[#, 3] == 1, 1/3 (1 + 2 #), 0]}],

IntegerQ || # == 0]]] &]], {150}]; a  (* A325429 *)

Complement[Range[Last[a]], a]         (* A325430 *)

(* Peter J. C. Moses, Apr 25 2019 *)

CROSSREFS

Cf. A325417, A325429.

Sequence in context: A186083 A093906 A152829 * A104463 A072757 A295897

Adjacent sequences:  A325427 A325428 A325429 * A325431 A325432 A325433

KEYWORD

nonn,easy

AUTHOR

Clark Kimberling, Apr 30 2019

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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 14 09:51 EST 2019. Contains 329111 sequences. (Running on oeis4.)