A075520 4*prime(n) + (prime(n) mod 4).

10, 15, 21, 31, 47, 53, 69, 79, 95, 117, 127, 149, 165, 175, 191, 213, 239, 245, 271, 287, 293, 319, 335, 357, 389, 405, 415, 431, 437, 453, 511, 527, 549, 559, 597, 607, 629, 655, 671, 693, 719, 725, 767, 773, 789, 799, 847, 895, 911, 917, 933, 959, 965

Offset: 1

Author

Reinhard Zumkeller, Sep 19 2002

Keywords

• nonn

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000040, A039702.

Programs

Haskell

a075520 n = a075520_list !! (n-1)
a075520_list = zipWith (+) a001749_list a039702_list
-- Reinhard Zumkeller, Feb 20 2012

Mathematica

4#+Mod[#,4]&/@Prime[Range[60]] (* Harvey P. Dale, Mar 10 2016 *)

Formula

a(n) = A001749(n) + A039702(n).