A158635 6n - A008578(n).
5, 10, 15, 19, 23, 25, 29, 31, 35, 37, 37, 41, 41, 43, 47, 49, 49, 49, 53, 53, 55, 59, 59, 61, 61, 59, 61, 65, 67, 71, 73, 65, 67, 67, 71, 67, 71, 71, 71, 73, 73, 73, 77, 73, 77, 79, 83, 77, 71, 73, 77, 79, 79, 83, 79, 79, 79, 79, 83, 83, 85, 89, 85, 77, 79, 83, 85, 77, 77, 73, 77
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Join[{5},Table[6n-Prime[n-1],{n,2,80}]] (* Harvey P. Dale, Nov 18 2012 *) -
PARI
a(n)=if(n>1,6*n-prime(n-1),5) \\ Charles R Greathouse IV, Mar 16 2016
Extensions
Edited, offset changed by R. J. Mathar, Apr 04 2009
Comment clarified and modified by Harvey P. Dale, Nov 18 2012
Comments