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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A276375 Numbers n such that A240024(n + 1) = A002808(n). 2
1, 2, 3, 11, 22, 29, 47, 49, 52, 67, 78, 79, 80, 91, 103, 104, 109, 111, 121, 130, 137, 148, 152, 159, 179, 184, 190, 200, 207, 215, 222, 241, 264, 278, 291, 307, 309, 316, 331, 336, 343, 347, 350, 361, 373, 380, 400, 409, 415, 430, 435, 445, 450, 453, 468 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

LINKS

Peter Kagey, Table of n, a(n) for n = 1..10000

MATHEMATICA

c = Select[Range@ 600, CompositeQ]; a = {1, 4}; Do[k = 6; While[Or[PrimeQ@ k, MemberQ[a, k], CoprimeQ[a[[i - 1]], k]], k++]; AppendTo[a, k], {i, 3, Length@c + 1}]; Flatten@ Position[Union /@ Transpose@ {Rest@ a, c}, w_ /; Length@ w == 1] (* Michael De Vlieger, Sep 01 2016 *)

PROG

(Haskell)

a276375 n = a276375_list !! (n - 1)

a276375_list = filter (\i -> a240024 (i + 1) == a002808 i) [1..]

CROSSREFS

Cf. A002808, A240024, A276374.

Sequence in context: A028816 A316187 A215952 * A128921 A118595 A229549

Adjacent sequences:  A276372 A276373 A276374 * A276376 A276377 A276378

KEYWORD

nonn

AUTHOR

Peter Kagey, Aug 31 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
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified November 19 00:12 EST 2019. Contains 329310 sequences. (Running on oeis4.)