|
Search: id:A002471
|
|
|
| A002471 |
|
Number of partitions of n into a prime and a square.
(Formerly M0073 N0025)
|
|
+0
3
|
|
| 0, 1, 2, 1, 1, 2, 2, 1, 1, 0, 3, 2, 1, 2, 1, 1, 2, 2, 2, 2, 2, 1, 3, 1, 0, 1, 3, 2, 2, 2, 1, 3, 2, 0, 2, 1, 1, 4, 2, 1, 3, 2, 2, 2, 2, 1, 4, 2, 1, 1, 2, 2, 3, 3, 1, 3, 2, 0, 3, 2, 1, 4, 2, 0, 2, 3, 3, 4, 2, 1, 3, 3, 2, 1, 3, 1, 4, 2, 2, 3, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
REFERENCES
|
Selmer, Ernst S.; Eine numerische Untersuchung ueber die Darstellung der natuerlichen Zahlen als Summe einer Primzahl und einer Quadratzahl. Arch. Math. Naturvid. 47, (1943). no. 2, 21-39.
|
|
LINKS
|
T. D. Noe, Table of n, a(n) for n = 1..10000
|
|
MAPLE
|
n->nops(select(isprime, [ seq(n-i^2, i=0..trunc(sqrt(n))) ])):
with(combstruct): specM0073 := {N=Prod(P, S), P=Set(Z, card>=1), S=Set(Z, card>=0)}: `combstruct/compile`(specM0073, unlabeled): `combstruct/Count`[ specM0073, unlabeled ][ P ] := proc(p) option remember; if isprime(p) then 1 else 0 fi end: `combstruct/Count`[ specM0073, unlabeled ][ S ] := proc(p) option remember; if type(sqrt(p), integer) then 1 else 0 fi end: M0073 := n->count([ N, specM0073, unlabeled ], size=n):
|
|
CROSSREFS
|
Sequence in context: A034798 A115236 A064286 this_sequence A091243 A037826 A079882
Adjacent sequences: A002468 A002469 A002470 this_sequence A002472 A002473 A002474
|
|
KEYWORD
|
nonn,nice
|
|
AUTHOR
|
njas
|
|
EXTENSIONS
|
Sequence corrected by Paul Zimmermann Mar 15 1996
|
|
|
Search completed in 0.002 seconds
|
