|
|
A030146
|
|
Squares-of-primes in which no two adjacent digits have the same parity.
|
|
2
|
|
|
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;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Join[{4, 9}, Select[Prime[Range[4000]]^2, Union[Sort/@OddQ/@Partition[IntegerDigits[#], 2, 1]]=={{False, True}}&]] (* Harvey P. Dale, Feb 22 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|