|
%I #11 Mar 10 2016 18:35:49
%S 10,15,21,31,47,53,69,79,95,117,127,149,165,175,191,213,239,245,271,
%T 287,293,319,335,357,389,405,415,431,437,453,511,527,549,559,597,607,
%U 629,655,671,693,719,725,767,773,789,799,847,895,911,917,933,959,965
%N 4*prime(n) + (prime(n) mod 4).
%H Reinhard Zumkeller, <a href="/A075520/b075520.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A001749(n) + A039702(n).
%t 4#+Mod[#,4]&/@Prime[Range[60]] (* _Harvey P. Dale_, Mar 10 2016 *)
%o (Haskell)
%o a075520 n = a075520_list !! (n-1)
%o a075520_list = zipWith (+) a001749_list a039702_list
%o -- _Reinhard Zumkeller_, Feb 20 2012
%Y Cf. A000040, A039702.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Sep 19 2002
|
