|
Search: id:A053811
|
|
| |
|
| 2, 2, 3, 5, 3, 2, 7, 11, 5, 2, 13, 3, 17, 7, 19, 23, 29, 31, 11, 37, 41, 43, 2, 3, 13, 47, 53, 5, 59, 61, 67, 17, 71, 73, 79, 19, 83, 89, 2, 97, 101, 103, 107, 109, 23, 113, 127, 7, 131, 137, 139, 149, 151, 29, 157, 163, 167, 31, 173, 179, 181, 191, 193, 197, 199, 211, 223
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
FORMULA
|
a(n) = A006530(A053810(n)) = A020639(A053810(n)). - David Wasserman (dwasserm(AT)earthlink.net), Feb 17 2006
|
|
PROGRAM
|
(PARI) LIM = prime(80)^2; v = vector(400); count = 0; forprime (p = 2, prime(80), x = 2; while (p^x <= LIM, count++; v[count] = p^x; x = nextprime(x + 1))); v = vecsort(vector(count, i, v[i])); A = vector(count); for (i = 1, count, f = factor(v[i]); A[i] = f[1, 1]); A - David Wasserman (dwasserm(AT)earthlink.net), Feb 17 2006
|
|
CROSSREFS
|
Cf. A000040, A000961, A025473.
Adjacent sequences: A053808 A053809 A053810 this_sequence A053812 A053813 A053814
Sequence in context: A090926 A023503 A039640 this_sequence A049840 A072039 A131901
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Henry Bottomley (se16(AT)btinternet.com), Mar 28 2000
|
|
EXTENSIONS
|
More terms from David Wasserman (dwasserm(AT)earthlink.net), Feb 17 2006
|
|
|
Search completed in 0.002 seconds
|
