|
| |
|
|
A030146
|
|
Squares-of-primes in which no two adjacent digits have the same parity.
|
|
0
| |
|
|
4, 9, 25, 49, 121, 169, 361, 529, 961, 12769, 16129, 18769, 32761, 72361, 76729, 78961, 96721, 212521, 214369, 436921, 452929, 458329, 1038361, 1630729, 1852321, 3892729, 5230369, 5470921, 5650129, 5812921, 5870929, 7230721
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
MATHEMATICA
| Join[{4, 9}, Select[Prime[Range[4000]]^2, Union[Sort/@OddQ/@Partition[IntegerDigits[#], 2, 1]]=={{False, True}}&]] (*From Harvey P.Dale, Feb 22 2011*)
|
|
|
CROSSREFS
| Sequence in context: A001248 A052043 A188836 * A158146 A158147 A158148
Adjacent sequences: A030143 A030144 A030145 * A030147 A030148 A030149
|
|
|
KEYWORD
| nonn,base
|
|
|
AUTHOR
| Patrick De Geest (pdg(AT)worldofnumbers.com)
|
|
|
EXTENSIONS
| Definition clarified by Harvey P. Dale, Feb 23 2011
|
| |
|
|
